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Abstract 


This  thesis  describes  the  design  of  a  data  acquisition 
system  used  for  tracking  the  movements  of  small  mammals.  An 
orthogonal  grid  of  beverage  antennas  is  used  to  receive 
signals  frcm  transmitters  which  have  been  placed  on  the 
animals.  By  reading  the  signal  strengths  on  each  antenna,  it 
is  possible  to  determine  the  coordinates  of  the  transmitter. 
By  utilizing  transmitters  at  different  frequencies,  it  is 
possible  to  track  several  animals  simultaneously. 

The  function  of  the  data  acquisition  system  is  to 
periodically  scan  the  antenna  system,  determine  the  position 
of  each  animal,  and  display  the  coordinates.  Bulk  storage  of 
data  is  provided  by  a  cassette  tape  system. 

The  use  of  a  microcomputer  to  control  the  actions  of 
the  system  greatly  enhances  its  capabilities.  It  is  possible 
to  interpolate  between  the  signal  readings  in  order  to 
increase  the  resolution  of  the  system.  It  is  also  possible 
to  make  decisions  as  to  which  data  are  relevant  and  should 
be  stored.  The  major  advantage  of  this  system  is  the  mass 
storage  facility.  This  facility  allows  the  data  to  be 
processed  at  a  later  time  without  manually  reentering  it. 
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I.  INTRODUCTION 


M“any  methods  have  been  devised  for  tracking  small  mammals. 
The  movement  of  the  animals  can  be  traced  by  the  tracks  they 
leave  in  sand  (Bider  1968) ,  or  on  sheets  of  smoked  paper 
(Justice  1961).  They  have  also  been  tracked  by  following  a 
trail  of  radioactive  excretory  products  (Hiller  1957).  Other 
methods  which  hatfe  been  employed  include  automatic  cameras, 
and  microswitches  on  swinging  doors.  The  earliest  attempts 
at  radio  tracking  used  a  system  of  highly  directional 
receiving  antennas  on  high  towers.  The  transmitter  position 
was  then  determined  by  triangulation. 

All  methods  of  tracking  animals  have  some 
disadvantages.  The  intrusion  of  man  into  the  natural  habitat 
of  the  animals  upsets  the  normal  life  cycles  of  the  area. 

For  this  reason,  the  amount  of  direct  contact  by  man  should 
be  kept  to  a  minimum.  Some  type  of  remote  sensing  system  is 
therefore  suggested.  The  devices  used  to  do  the  tracking 
should  disturb  the  animals  as  little  as  possible.  For 
example,  if  radio  transmitters  are  used,  they  must  be  kept 
small  enough  and  light  enough  that  they  do  net  hinder  the 
movement  of  the  animals. 

A  recent  attempt  has  been  made  to  trace  the  movements 
of  these  animals  by  using  a  grid  of  overhead  wire  antennas 
(Chute  et  al.  1974).  Small  transmitters  are  attached  to  the 
animals,  which  are  then  released  under  the  antenna  system. 
The  purpose  of  the  present  project  is  to  design  and  build  a 
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microprocessor  controlled  system  to  monitor  these  antennas 
and  determine  the  positions  of  the  transmitters  under  the 
array.  The  antenna  system  is  already  in  use  by  the 
Department  of  Zoology  at  the  University  of  Alberta.  It 
consists  of  an  orthogonal  grid  of  42  horizon*  1  wie 
antennas,  21  in  each  direction.  One  end  of  each  antenna  is 
connected,  via  coaxial  cable,  to  the  antenna  control  system. 

In  the  system  described  in  the  following  sections,  the 
antennas  are  systematically  connected,  under  computer 
control,  to  a  receiver  where  the  signal  strengths  are 
measured.  After  the  signal  strengths  from  all  of  the 
antennas  have  been  recorded,  the  computer  processes  the  data 
to  determine  the  location  of  the  transmitter.  The  location 
is  indicated  as  the  intersection  of  the  two  orthogonal  wire 
antennas  providing  the  largest  signals  to  the  receiver. 

The  processed  data  are  then  displayed  on  a  printer, 
and/or  stored  on  a  cassette  tape.  The  printer  is  used  to 
provide  the  user  with  immediate  results.  The  data  are 
printed  as  they  are  collected.  The  cassette  tape  system 
provides  bulk  storage  of  data.  The  data  are  stored  on  tape, 
in  machine  readable  form,  so  that  they  can  be  processed 
later  by  a  general  purpose  computer. 

Besides  recording  the  position  of  each  transmitter,  the 
computer  determines  the  activity  state  of  each  transmitter. 
There  are  two  activity  states  that  the  system  can  recognize. 
A  transmitter  is  said  to  be  in  the  first  activity  state  if 
it  is  motionless,  while  the  second  activity  state  indicates 
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a  transmitter  in  motion.  The  motion  can  be  of  two  types.  The 
simplest  to  detect  is  a  transmitter  which  is  moving  from  one 
location  to  another.  The  transmitter  can,  however,  move 
without  changing  location.  An  example  of  this  would  be  an 
animal  which  is  in  one  location,  but  moving  about  in  that 
location  (e. g.  grooming  itself).  The  activity  state  is 
indicated  by  a  flag  in  the  output  to  the  printer  or  cassette 
tape.  A  flag  is  a  space  reserved  in  the  output  which  can 
contain  either  a  zero  or  a  one.  In  this  case,  a  zero 
indicates  a  transmitter  which  is  motionless,  while  a  one 
indicates  a  transmitter  in  motion. 

A  test  antenna  is  also  provided  to  monitor  the  level  of 
radio  interference  in  the  area.  The  test  antenna  is  similiar 
to  individual  antennas  in  the  grid,  but  is  placed  outside 
the  grid.  The  test  antenna  is  located  far  enough  away  from 
the  grid  that  transmitters  placed  under  the  grid  will  not 
affect  it.  Any  signals  picked  up  on  the  test  antenna  can 
then  be  attributed  to  external  sources,  which  may  affect  the 
signal  levels  on  the  grid.  The  computer  checks  the  test 
antenna  each  time  the  antenna  system  is  scanned.  If  the 
signal  level  on  a  particular  channel  is  too  high,  a  flag  is 
set  in  the  output  to  indicate  that  the  data  may  be  in  error. 
This  flag  is  set  to  a  one  if  the  signal  on  the  test  antenna 
is  greater  than  a  particular  level. 


A  facility  is  also  provided  which  allows  the  user  to 
keep  track  of  the  number  of  times  a  transmitter  is  found  at 
a  particular  location.  In  order  to  implement  this  population 
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matrix  facility,  a  set  of  counters  is  kept  in  the  computer 
memory,  one  counter  for  each  possible  location.  Whenever  a 
transmitter  position  is  determined,  the  counter 
corresponding  to  that  position  is  incremented.  These  data 
are  printed  upon  receipt  of  the  appropriate  command  from  the 
user. 

The  system  incorporates  a  typewriter-like  keyboard 
similiar  to  a  standard  computer  terminal.  This  keyboard 
allows  commands  to  be  issued  to  the  computer  so  that  the 
user  has  complete  control  over  the  operation  of  the  system. 


II 


SYSTEH  DESCRIPTION 


A.  Transmitter 

The  transmitter  consists  of  a  crystal  oscillator 
operating  in  the  citizens  band,  and  a  transmitting  antenna. 

A  circuit  diagram  of  the  transmitter  is  given  in  figure  1. 
Inductor  L2  is  used  as  a  collar  as  well  as  the  transmitting 
antenna.  Since  L2  is  small  compared  to  LI,  the  tuned  circuit 
freguency  is  not  sensitive  to  the  collar  size.  The  output 
signal  from  the  transmitter  is  sufficient  to  couple  into  the 
antenna  system  since  it  is  only  a  short  distance  away. 


B.  Antenna  System 

The  antenna  system  consists  of  an  orthogonal  grid  of 
horizontal  wire  antennas,  21  in  each  direction.  Each  antenna 
consists  of  a  30  meter  length  of  wire,  spanned  one  meter 
above  the  ground.  One  end  of  the  antenna  wire  is  terminated 
in  a  ground  connection,  while  the  other  end  is  connected, 
via  coaxial  cable,  to  the  antenna  control  system.  The 
coaxial  cable  connects  each  antenna  to  a  relay  in  the 
antenna  control  box  (see  figure  2)  •  The  other  side  of  the 
relay  is  connected  to  the  input  of  the  radio.  In  order  to 
select  a  particular  antenna,  a  code  word  is  sent  from  the 
computer  to  the  antenna  control  system.  The  logic  in  the 
antenna  control  system  decodes  the  control  signals  and 


5 


' 


6 


Fig.  1 


Transmitter  circuit 


activates  the  appropriate  relay.  In  this  way  the  computer 
can  connect  any  antenna  to  the  input  of  the  radio. 

The  first  step  in  scanning  the  antenna  system  is  to 
connect  a  particular  antenna  to  the  radio.  The  computer  then 
sets  the  radio  to  the  channel  to  be  monitored.  The  signal 
strength  on  the  antenna  is  then  read  and  stored  in  memory. 

If  there  are  transmitters  on  other  channels,  the  radio  is 
then  set  to  one  of  the  other  channels  and  the  signal 
strength  for  that  channel  is  recorded.  This  procedure 
continues  until  all  channels  have  been  monitored.  At  this 
point  the  computer  disconnects  the  antenna  and  connects  the 
next  antenna  to  be  checked.  All  channels  are  again  monitored 
and  the  readings  are  stored  in  memory.  After  the  entire 
antenna  system  has  been  scanned  in  this  manner,  the  data 
stored  in  memory  are  processed  to  determine  relative  signal 
strengths  and  hence  the  coordinates  of  each  transmitter. 
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Since  the  antennas  closest  to  the  transmitter  receive 
the  strongest  signal,  the  transmitter  position  can  be 
determined  by  comparing  the  signal  strengths  on  all  of  the 
antennas-  The  data  from  the  two  sets  of  antennas  (X  and  Y) 
are  processed  separately  so  that  two  orthogonal  coordinates 
can  be  determined. 


C.  Eeceiver 

The  receiver  used  is  a  standard  citizens  band 
transceiver.  A  CE  system  was  chosen  because  of  the  low  cost 
and  availability  of  the  crystals  for  the  transmitters,  as 
well  as  the  availability  of  commercial  receivers.  The  use  of 
the  CB  band  is  viable  in  this  case  because  of  the  location 
of  the  system.  If  the  system  were  to  operate  in  an  area  with 
a  large  amount  of  CB  activity,  a  different  frequency  band 
may  have  to  be  chosen.  In  order  to  allow  computer  control  of 
the  receiver  channel,  the  channel  selection  system  in  the 
original  receiver  had  to  be  modified.  The  radio  was  rewired 
so  that  the  channel  selection  circuitry  received  its  control 
signals  from  the  computer,  rather  than  from  the  conventional 
rotary  switch.  For  proper  system  operation  the  radio  must 
supply  the  computer  with  a  signal  proportional  to  the 
received  signal  strength.  Modifications  to  the  radio  were 
required  to  make  this  signal  available.  These  changes  will 
be  detailed  in  a  following  section. 
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D.  Microcomputer  System 

The  purpose  of  the  microprocessor  system  is  to  monitor 
the  antenna  system,  determine  the  location  of  each 
transmitter  within  the  grid,  and  store  this  information  on  a 
cassette  tape  so  that  further  processing  is  possible  at  a 
later  date  by  a  general  purpose  computer. 

The  system  is  controlled  by  a  microcomputer  which 
consists  of  a  central  processing  unit  and  its  associated 
memory.  The  function  of  the  central  processor  is  to  read 
program  instructions  from  memory,  decode  the  instruction, 
and  finally  perform  whatever  task  the  instruction  requested. 
Memory  is  divided  to  two  major  categories.  Program  memory 
contains  the  control  program  for  the  system.  All  operations 
performed  by  the  computer  are  initiated  by  instructions  read 
from  the  program  memory.  The  second  section  of  memory 
provides  for  temporary  storage  of  data.  For  example,  this 
section  of  memory  contains  the  raw  data  received  from  the 
antennas,  the  processed  data  waiting  to  be  printed,  and  the 
counters  for  the  population  matrix  facility.  The  memory  map 
in  figure  4  gives  a  breakdown  of  memory  usage. 

In  order  to  allow  processing  of  the  data  by  a  general 
purpose  computer,  the  data  collected  are  stored  on  a 
cassette  tape.  Data  stored  on  the  tape  include  the  real 
time,  the  channel  number,  the  coordinates  of  the  particular 
transmitter,  the  activity  state  of  the  animal,  and  the 
condition  of  the  test  antenna.  In  order  to  conserve  space  on 
the  cassette  tape,  not  all  of  the  data  collected  are  stored 
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Fig.  2 


System  Diagram 
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Fig.  3 


Block  diagram 
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on  the  tape.  Each  time  data  are  collected,  they  are  compared 
to  the  previous  set  of  data.  If  nothing  has  changed,  no 
information  is  contained  in  the  new  data,  so  they  are  not 
stored.  One  result  of  this  method  of  storing  data  is  a  very 
irregular  rate  of  data  flow  to  the  cassette  tape  system.  If 
the  data  were  loaded  directly  onto  the  tape,  there  would  be 
large  gaps  between  sets  of  data.  In  order  to  overcome  this 
problem,  the  data  are  not  sent  directly  to  the  cassette 
tape,  but  are  stored  in  a  buffer  memory.  Data  are  stored  in 
the  buffer  until  the  buffer  becomes  full.  At  this  point,  the 
system  automatically  turns  on  the  cassette  drive,  and 
transfers  all  of  the  data  in  the  buffer  onto  the  cassette 
tape.  The  cassette  drive  is  then  turned  off.  In  this  way, 
whenever  the  cassette  drive  is  on,  data  are  sent  to  the  tape 
at  the  maximum  possible  rate,  thus  conserving  tape  space. 
Whenever  the  tape  becomes  full,  an  alarm  is  sounded.  Since 
there  is  a  period  of  time  when  the  cassette  drive  is  off 
(when  the  buffer  is  filling  up) ,  a  new  tape  can  be  inserted 
without  interrupting  the  system. 

Operator  control  over  the  system  is  provided  by  a 
keyboard.  Before  each  experiment,  various  parameters  must  be 
entered  into  the  system.  These  include  such  items  as  the 
correct  time,  the  channels  which  are  used,  the  size  of  the 
cassette  tape,  the  scanning  interval,  etc.  Once  the  system 
is  initialized  via  the  keyboard,  it  can  collect  data 
completely  unattended.  The  only  operator  intervention 
required  is  the  replacing  of  the  cassette  tapes  as  they 
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become  full. 

A  block  diagram  of  the  system  is  given  in  figure  3.  The 
top  half  of  the  diagram  is  the  standard  microcomputer 
configuration.  The  bus  oriented  system  allows  the 
microcomputer  to  control  various  peripheral  equipment  such 
as  the  keyboard,  printer,  etc.  Physically  the  computer 
occupies  five  cards  on  the  backplane.  All  ether  cards,  when 
inserted  into  the  backplane,  have  access  to  the  address, 
data,  and  control  buses.  Because  of  this  modular 
arrangement,  any  additions  to  the  system  can  be  made  without 
altering  the  existing  system.  Any  lines  which  connect  to 
external  devices  (such  as  the  radio)  are  connected  through 
the  backplane.  This  arrangement  allows  the  cards  to  be 
removed  without  disconnecting  any  cables. 

The  computer  and  the  associated  power  supplies  are 
housed  in  one  cabinet  along  with  the  keyboard,  printer,  and 
cassette  drive.  The  radio  and  antenna  control  box  are  housed 
in  another  cabinet.  In  order  to  reduce  the  amount  of  system 
noise  picked  up  by  the  radio,  these  two  cabinets  are  kept  as 
far  apart  as  possible. 


. 


III.  HARDWARE  DESCRIPTION 


The  hardware  consists  of  three  major  sections.  The  antenna 
control  box  controls  the  antenna  system.  Under  control  of 
the  computer,  a  particular  antenna  can  be  connected  to  the 
radio.  The  radio  receives  the  signal  from  the  antennas, 
sorts  out  the  proper  channel,  and  measures  the  signal 
strength.  The  signal  strength  is  then  read  by  the  computer 
which  converts  it  to  a  digital  code.  The  computer  then 
analyses  the  data  and  determines  the  location  of  each 
transmitter. 


A.  Antenna  Control 

The  computer  selects  a  particular  antenna  by  sending 
appropriate  control  signals  to  the  antenna  control  system. 
These  signals  are  then  decoded  and  the  correct  relay  is 
activated.  The  control  inputs  to  the  antenna  control  box 
consist  of  5  signals  which  are  used  to  select  a  particular 
antenna,  plus  a  signal  (X/Y)  which  determines  which  set  of 
antennas  (X  or  Y)  will  be  selected. 

The  relays  for  the  two  sets  of  antennas  (X  and  Y)  are 
each  on  a  separate  board.  Figure  12  is  the  circuit  diagram 
for  the  relay  cards.  The  boards  are  identical,  but  have 
jumper  options  to  enable  the  card  to  be  configured  either  as 
the  X  or  Y  card.  The  circuitry  is  basically  a  two  level 
decoder.  The  first  level  is  a  2  to  4  decoder  (74LS138),.  A  2 
bit  binary  input  results  in  the  selection  of  one  of  the  4 
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outputs.  Each  binary  input  has  a  unique  output.  Three  of  the 
outputs  of  this  stage  select  one  of  three  3  to  8  decoders 
(74156).  The  entire  configuration  can  be  considered  as  a  5 
to  24  decoder.  A  5  bit  binary  input  results  in  the  selection 
of  one  of  the  24  outputs.  The  first  22  outputs  are  used  to 
turn  on  the  relay  cor responding  to  the  binary  input. 

Card  selection  is  accomplished  by  changing  the  enable 
signals  to  the  first  level  of  the  decoder.  Whenever  the 
first  level  of  the  decoder  is  disabled,  none  of  its  outputs 
are  selected.  Since  these  outputs  are  used  to  enable  the 
second  level  of  the  decoder,  none  of  the  24  outputs  are 
selected.  For  the  X  card,  the  active  high  enable  (G1)  is 
connected  to  X/Y,  while  the  active  low  enable  is  grounded. 

On  the  Y  card,  the  active  low  enable  (G2A)  is  connected  to 
X/Y,  while  the  active  high  enable  is  pulled  high.  Therefore 
a  high  signal  on  X/Y  selects  the  X  card,  while  a  low  signal 
selects  the  Y  card. 

The  outputs  of  the  second  level  of  the  decoder  directly 
drive  the  reed  relay  coils.  The  outputs  are  open  collector, 
with  enough  sink  capability  (16  mA)  to  turn  on  the  relay. 
Since  the  outputs  are  active  low,  one  end  of  the  relay  coil 
is  tied  to  + 5  volts,  and  the  other  end  is  connected  to  the 
decoder  output.  When  a  particular  output  is  selected,  the 
output  goes  low,  turning  on  the  relay.  The  relays  used  to 
connect  the  antennas  to  the  radio  are  CLARE  PRME  1A005  reed 
relays.  These  are  five  volt  relays  which  require 
approximately  2  milliseconds  to  close. 
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Fig.  5  Control  Signals  to  Antenna  Box 

One  side  of  the  relay  contacts  is  connected  to  an 
individual  antenna,  while  the  other  side  is  connected  to  the 
radio,  in  parallel  with  all  the  other  relays.  When  one  relay 
is  selected,  the  appropriate  antenna  is  therefore  connected 
to  the  radio. 

The  major  problem  encountered  in  the  operation  this 
section  was  the  noise  picked  up  on  the  signal  lines  and  fed 
into  the  radio.  It  was  discovered  that  the  major  source  of 
this  noise  was  associated  with  the  generation  of  the  control 
signals  in  the  computer.  In  order  to  reduce  this  noise,  the 
filtering  and  decoupling  scheme  of  figure  5  was  used. 

Besides  decoupling  the  control  lines,  care  had  to  be 
taken  to  completely  shield  the  system.  The  two  cards  are 
completely  enclosed  in  a  metal  box,  with  the  RF  signals 
entering  and  leaving  through  BNC  connectors.  The  control 
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signals  from  the  computer  are  brought  in  with  a  shielded 
cable,  with  the  shield  connected  to  the  shield  box  (see 
figure  5) •  The  shielding  philosophy  was  to  think  of  the 
relay  box  as  an  extension  of  the  coaxial  cable  from  the 
antennas  to  the  radio.  Therefore  the  shield  on  the  control 
cable  is  not  connected  to  the  computer  ground,  but  to  the 
shield  box. 


B.  Radio  Receiver 

The  radio  receiver  used  is  a  Radio  Shack  model  TRC-456. 
This  transceiver  is  a  Citizens  Band  radio,  with  phase  locked 
loop  tuning  which  provides  40  individual  channels.  The  input 
sensitivity  is  specified  as  0.2  uV  for  10  dB  S/N,  and  the 
selectivity  is  ±3  KHz  at  -6dB. 

Several  modifications  were  required  before  the  receiver 
could  be  used  in  this  application.  The  channel  selection  had 
to  be  controlled  by  the  computer,  and  an  output  had  to  be 
provided  which  was  proportional  to  the  signal  strength. 

Since  it  was  also  discovered  that  the  radio  was  incapable  of 
responding  fast  enough  to  a  channel  change,  modifications 
were  required  to  speed  up  the  response.  Modifications  to  the 
radio  are  shown  in  figures  6  and  7. 

Frequency  synthesis  in  the  radio  is  done  with  a  phase 
locked  loop  system.  IC801  contains  most  of  the  circuitry  of 
a  standard  phase  locked  loop.  The  programmable  divider  in 
the  feedback  loop  is  the  key  to  controlling  the  channel 
selection.  The  binary  inputs  to  the  divider  determine  the 
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Fig.  6 


Receiver  Circuit 
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channel  selected.  All  that  is  required  therefore,  is  to 
supply  the  appropriate  binary  code  to  IC801. 

The  receiver  used  a  multi-wafer  rotary  switch  to 
generate  the  appropriate  code  for  the  programmable  divider. 
The  rotary  switch  was  disconnected  and,  in  its  place,  an 
output  port  from  the  computer  was  installed  (see  figure  7a) . 
In  order  to  arrange  for  the  proper  logic  levels  (0  to  6 
volts),  the  output  port  was  buffered  with  optical  isolators 
with  the  outputs  pulled  up  to  6  volts.  The  radio  channel  is 
therefore  selected  by  sending  the  appropriate  binary  word  to 
the  output  port. 

The  computer  must  also  be  able  to  read  the  amplitude  of 
the  input  signal.  This  information  is  easily  obtainable  from 
the  radio.  The  automatic  gain  control  circuit  monitors  the 
signal  strength  out  of  the  IF  amplifier  and,  based  on  the 
strength,  sends  a  control  signal  to  the  BF  amplifier  to 
control  its  gain.  The  input  to  the  AGC  circuit  is  therefore 
proportional  to  the  input  signal  strength.  This  is  the 
signal  that  is  sent  to  the  computer  for  processing  (see 
figure  7e) . 

Ideally  the  automatic  gain  control  circuit  keeps  the 
signal  strength  out  of  the  IF  amplifier  constant.  In  order 
to  defeat  this  circuit,  the  output  from  the  AGC  circuit  was 
disconnected  (see  figure  7e)  .  Disconnecting  the  automatic 
gain  control  allows  the  output  of  the  IF  amplifier  to  follow 
the  input  signal  strength. 

It  was  found  that  simply  disconnecting  the  AGC  line 
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caused  the  RF  gain  to  drop  undesireably  low.  It  was 
necessary  therefore,  to  control  the  level  on  the  AGC  line  to 
set  the  RF  amplifier  to  its  maximum  gain.  A  20K 
potentiometer  was  connected  between  power  and  ground.  The 
wiper  was  then  connected  to  the  AGC  line  and  adjusted  for 
maximum  gain  in  the  RF  amplifier. 

In  order  to  scan  the  antenna  system,  it  is  necessary  to 
take  a  signal  strength  measurement  approximately  every  3 
msec.  It  was  found  that  the  radio  could  not  change  channels 
that  fast.  The  first  modifications  (figures  7b  and  7c) 
involved  changing  the  filter  in  the  phase  locked  loop.  The 
cutoff  frequency  of  the  low  pass  filter  had  to  be  increased 
to  allow  the  loop  to  respond  faster.  The  cutoff  frequency 
was  increased  by  removing  C811,  and  decreasing  the  value  of 
C807.  In  order  to  maintain  the  same  gain  around  the  loop, 
R802  was  increased  in  value.  Before  these  changes,  the 
receiver  required  150  msec  to  switch  between  adjacent 
channels.  After  the  modifications,  the  time  was  reduced  to  2 
msec. 

These  modifications  allowed,  however,  only  switching 
between  adjacent  channels.  In  order  to  increase  the  response 
time  even  further,  it  was  necessary  to  defeat  the  ‘unlock 
switching'  circuit.  It  was  found  that  the  circuit  could  be 
defeated  by  removing  diode  D610  (see  figure  7d)  .  The  radio 
then  required  a  maximum  of  2.5  msec  to  switch  between  any 
two  channels.  When  the  maximum  number  of  channels  (5)  is 
scanned,  the  length  of  time  required  to  monitor  one  antenna 
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is  therefore  12.  5  msec.  The  entire  antenna  system  can  then 
be  scanned  in  under  one  second  (43  times  12.5  msec  =  537.5 
msec)  . 

As  with  the  antenna  control  box,  it  was  found  that  a 
great  deal  of  noise  entered  the  system  through  the  control 
lines  from  the  computer.  The  circuit  of  figure  8  is  used  to 
reduce  the  level  of  noise  entering  the  system.  The  inputs 
and  outputs  of  the  optical  isolators  are  completely 
isolated.  Complete  isolation  is  made  possible  by  providing 
the  radio  with  its  own  isolated  power  supply.  As  discussed 
earlier,  the  optical  isolators  provide  level  shifting  as 
well  as  isolation. 

As  was  found  with  the  antenna  box,  shielding  proved  to 
be  an  important  consideration.  Care  had  to  be  taken  to 
ensure  that  the  receiver  was  completely  shielded  from 
external  noise.  Again,  since  the  radio  should  be  considered 
an  extension  of  the  RF  signal  line,  the  shield  on  the 
control  cable  was  not  connected  to  the  computer  ground. 
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COMPUTER  OPTICAL  COUPLERS  RADIO 


Fig.  8  Control  Signals  to  Fadio 


C.  Microcomputer 


Central  Processor  Card 

The  central  processor  card  contains  an  8085  CPU,  the 
reset  circuitry,  the  real  time  clock,  and  the  bus  buffers. 
This  card  is  the  main  functional  unit  of  the  computer  which 
controls  the  operation  of  the  entire  system.  A  circuit 
diagram  of  this  card  is  given  in  figure  13. 
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8085  Processor 

The  Intel  8085  is  a  complete  8  bit  central 
processing  unit.  All  external  hardware  is  controlled  via 
the  address  bus,  the  multiplexed  address/data  bus,  and 
the  control  bus.  The  CPU  has  provision  for  on-chip 
vectored  interrupts  as  well  as  the  system  reset. 

The  CPU  also  contains  the  circuitry  necessary  to 
produce  the  system  clock.  The  only  external  hardware 
required  is  a  single  crystal.  Since  internal  circuitry 
divides  down  the  crystal  frequency,  the  6  MHz  crystal 
used  results  in  a  3  MHz  system  clock.  Since  the  system 
clock  is  also  used  as  a  real  time  clock,  the  frequency 
of  the  crystal  was  trimmed  by  adding  capacitors  in 
parallel. 

Three  of  the  interrupts  provided  on  the  8085  (PST 
5.5,  EST  6.5,  and  RST  7.5)  are  used  in  this  application. 
Whenever  a  high  signal  is  detected  on  the  pin 
corresponding  to  one  of  these  interrupt  lines,  the  CPU 
performs  a  jump  to  a  location  in  memory  particular  to 
that  interrupt.  The  program  has,  at  that  location,  a 
jump  to  an  interrupt  service  subroutine,  which  performs 
whatever  tasks  are  necessary  to  satisfy  the  source  of 
the  interrupt. 
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Reset  Circuitry 

The  reset  circuitry  provides  a  method  of 
controlling  the  start-up  mode  of  the  CPU.  Whenever  a  low 
signal  is  detected  on  the  reset  line,  the  processor 
jumps  to  the  start  of  program  memory.  Any  routines 
necessary  to  initialize  the  system  are  stored  in  this 
memory  area  so  they  are  excecuted  whenever  the  reset 
button  is  depressed.  Provision  is  also  made  for  a 
pover-on  reset.  The  capacitor  (see  figure  13)  connected 
to  the  reset  line  keeps  the  reset  line  low  when  power  is 
first  applied.  The  capacitor  then  slowly  charges  through 
the  15K  resistor  until  it  reaches  the  logic  *1'  level  of 
the  CPU.  At  this  point  the  processor  can  begin 
excecuting  the  program  stored  in  the  bottom  of  memory. 

Real  Time  Clock 

The  real  time  clock  circuitry  consists  of  a  series 
of  programmable  dividers  which  divide  down  the  system 
clock  from  3  MHz  to  1  Hz.  The  1Hz  signal  is  then  used  to 
set  a  flip  flop  (74T12)  ,  the  output  of  which  interrupts 
the  CPU.  The  interrupt  service  subroutine  for  this 
particular  interrupt  (R ST  6.5)  then  increments  the  clock 
which  is  contained  in  read/write  memory.  The  interrupt 
service  subroutine  also  resets  the  flip  flop  using  the 
serial  output  port  (SOD) .  As  well  as  providing  the  real 
time  clock  signal,  the  series  of  dividers  also  has  an 
intermediate  output  (2400  Hz)  which  is  used  to  provide 
the  timing  for  the  cassette  interface. 
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Bus  Buffers 

A  large  number  of  peripheral  devices  are  connected 
to  the  central  processor  via  the  address,  data,  and 
control  buses.  In  order  to  allow  the  central  processor 
to  drive  these  buses,  buffers  are  provided  to  increase 
the  drive  capability.  All  buffers  are  inverting,  but 
this  does  not  present  a  problem  since  each  peripheral 
device  is  equipped  with  receiving  buffers  which  are  also 
inverting. 

The  8085  CPU  uses  a  multiplexed  data  bus.  During 
the  first  portion  of  an  instruction,  this  bus  contains 
the  lower  byte  of  the  address.  The  combination  of  this 
bus  with  the  address  bus,  which  contains  the  upper  byte 
of  the  address,  can  be  used  to  select  any  address  in  the 
memory  space.  Whenever  the  lower  byte  of  the  address  is 
valid  on  the  multiplexed  address/data  bus,  the  ALE 
(address  latch  enable)  signal  goes  high.  This  signal  is 
used  to  latch  the  lower  byte  of  the  address.  The  bus  is 
then  free  to  be  used  as  a  data  bus  to  transfer  data  to 
or  from  memory  or  peripheral  hardware.  In  this 
application,  an  8212  port/latch  is  used  to  latch  the 
address.  The  output  of  the  8212  provides  the  lower 
address  byte  to  the  address  bus  on  the  backplane.  The 
8212  is  enabled  with  the  ALE  signal. 

Buffering  the  data  bus  is  not  as  straight  forward 
as  buffering  the  address  bus.  First,  the  data  bus  is 
bi-directional,  data  must  be  able  to  move  both  to  and 
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from  the  CPU.  Second,  there  must  be  provision  to  put  the 
buffers  in  a  high  impedance  state,  so  that  other  devices 
can  obtain  control  of  the  bus.  The  data  bus  buffering 
was  accomplished  with  74366/368  bus  buffers.  These  are 
inverting  buffers  which  have  an  enable  input.  When  the 
buffers  are  disabled,  the  outputs  are  in  a  high 
impedance  state. 

The  input  buffers  are  enabled  with  the  CPU  read 
(ED)  signal.  The  result  is  that  data  are  presented  to 
the  CPU  only  when  it  is  ready  to  read  the  bus.  The 
output  buffers  must  be  enabled  under  two  conditions. 
First,  whenever  the  CPU  wishes  to  write  data  to  the  bus. 
In  this  case,  the  buffers  are  enabled  with  a  write 
signal.  Instead  of  using  the  WE  signal,  the  status  pin 
SI  is  used.  The  SI  signal  can  be  thought  of  as  an 
advance  write  signal.  The  advantage  of  using  this  signal 
is  that  the  buffers  are  enabled  slightly  before  the  CPU 
does  a  write  to  the  data  bus.  Since  there  are  several 
levels  of  buffering  on  the  data  bus,  enabling  the 
buffers  in  advance  allows  time  for  all  of  the  buffers  to 
turn  on  before  the  data  transfer  begins.  The  second 
condition  for  which  the  output  buffers  should  be  enabled 
is  when  there  is  a  valid  address  on  the  bus.  Since  the 
8212  address  latch  derives  its  input  from  the  output  of 
these  buffers,  the  buffers  must  be  enabled  so  that  the 
address  latch  can  read  the  address.  For  these  reasons 
the  output  bus  buffers  are  enabled  with  Si  (write)  OE 
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ALE  (address  latch  enable). 

Program  Memory 

The  program  memory  card  contains  a  series  of  2708  read 
only  memories  which  contain  the  control  program.  The  CPU 
reads  all  of  its  instructions  from  this  card.  The  2708  EPROM 
(erasable-programmable  read  only  memory)  is  a  1024  by  8  bit 
memory  which  can  be  erased  by  exposure  to  ultraviolet  light. 

Since  there  are  1024  memory  addresses,  10  bits  of  the 
address  bus  are  used  to  select  the  proper  memory  locations. 
Since  the  address  bus  on  the  backplane  is  inverted,  the 
lower  10  address  bits  are  connected  to  the  memories  through 
7404  inverting  buffers.  The  program  memory  should  be  located 
at  the  bottom  of  memory,  and  since  there  are  8  EPROMs  on  the 
card,  the  addresses  used  are  0000  to  1FFF  (see  figure  14) . 

From  the  memory  sap  it  can  be  seen  that  in  order  to 
fully  decode  the  memory,  the  program  memory  must  be  enabled 
when  the  highest  three  bits  (A15,  A14,  and  A13)  are  low.  The 
decoding  is  accomplished  by  ANDing  together  -»A15,  -«A14,  and 
-»A13  (see  figure  14).  This  signal  is  then  used  to  enable  the 
decoder  and  the  bus  buffers.  The  next  three  bits  (A12,  All, 
and  A10)  are  used  to  select  one  of  the  eight  EPROMs.  A  3  to 
8  decoder  (74LS138)  is  used  for  this  purpose.  The  three 
address  lines  are  used  as  select  inputs,  with  the  active  low 
outputs  used  as  chip  select  signals  to  the  individual  ROMs. 
Since  all  address  bits  are  now  used  in  selecting  a 
particular  memory  location,  the  address  space  is  fully 
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decoded. 

Since  the  8085  uses  input/output  instructions  for  I/O 
to  external  hardware,  there  is  an  overlap  on  the  address  bus 
between  memory  and  I/O  locations.  For  this  reason,  the 
memory  and  data  bus  buffer  enables  are  also  conditioned  with 
the  IO/H  (input-output  /  memory)  line.  The  memory  is  now 
selected  only  when  the  CPU  is  accessing  memory.  A  read 
signal  (SI)  is  also  used  to  enable  the  memories  since  the 
2708s  are  read  only  memories. 

The  data  bus  on  this  card  is  not  bi-directional  since 
the  program  memory  card  can  only  send  data  to  the  CPU.  As 
can  be  seen  from  figure  14  ,  the  data  bus  buffers  are 
enabled  with  ADDEESS  SELECT  AND  M  (memory  select)  AND  ED 
(read) .  Enabling  the  buffers  in  this  manner  ensures  that  the 
data  bus  buffers  are  in  the  high  impedance  state  whenever 
the  CPU  is  not  accessing  data  from  this  card. 

E ead/Wr ite  Memory 

The  read/write  memory  is  used  for  temporary  storage  of 
information.  The  memory  system  is  implemented  with  2102A-4 
random  access  memories.  These  static  memories  are  organized 
as  IK  (1K=1024)  by  1  bits.  The  minimum  configuration  is 
therefore  8  IC*s  to  provide  8K  bytes.  In  this  application 
two  cards  of  2K  bytes  each  are  used. 

As  with  the  program  memory  card,  the  lower  10  bits  of 
the  address  are  used  to  select  memory  locations  in  the 
individual  chips.  The  address  lines  are  buffered  by  7404 
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inverting  buffers.  Since  the  read/write  memory  is  to  occupy 
the  memory  space  immediately  after  the  program  memory,  the 
addresses  allocated  are  2000  to  23FF  for  card  #1,  and  2400 
to  27FF  for  card  #2.  A  circuit  diagram  of  the  cards  is  given 
in  figure  15. 

By  referring  to  the  memory  map  (figure  4) ,  it  can  be 
seen  that  addresses  A10  through  A15  are  used  to  select  this 
portion  of  memory.  Each  card  is  selected  whenever  A15,  A 14, 
A12,  and  All  are  low  and  A13  is  high.  A10  is  used  to  select 
between  the  two  cards.  Since  the  individual  memories  must  be 
able  to  read  as  well  as  write  data  to  the  bus,  the 
read/write  (R/W)  input  on  the  chips  is  connected  to  the 
write  (W3)  signal.  As  with  the  program  memory  card,  the 
selection  is  conditioned  with  the  IO/M  signal  to  ensure  that 
no  conflicts  arise  when  performing  input/output  operations. 

As  well  as  the  two  cards  described  above,  a  third 
read/write  memory  card  is  utilized.  This  card  is  a 
commercially  available  4K  by  8  bit  memory  board  from  Kathryn 
Atwood  Enterprises.  This  card  is  used  to  provide  the  memory 
for  the  cassette  buffer. 
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Keyboard/Printer  Control  Card 

The  keyboard/printer  control  card  contains  the 
interface  to  the  user.  The  keyboard  is  used  to  input 
commands  and/or  data  to  the  computer,  while  the  printer  is 
used  to  output  data  to  the  user.  A  general  purpose  input 
port  is  also  included  which  is  used  to  read  the  various 
switches  on  the  front  panel.  A  circuit  diagram  of  this  card 
is  given  in  figure  16. 

The  ports  on  this  card  are  configured  to  occupy 
addresses  00  to  07.  An  on-board  latch,  which  is  identical  to 
the  one  on  the  CPO  card,  is  used  to  latch  the  address.  The 
reason  for  duplicating  the  address  latch  is  to  conserve 
connections  on  the  backplane.  The  top  five  bits  of  the 
inverted  address  bus  (A3  to  A7)  are  used  to  generate  a  board 
select  signal.  This  signal  is  then  used  to  enable  the 
decoding  logic  as  well  as  the  data  bus  buffers.  The  lower  3 
addresses  are  used  as  inputs  to  a  3  to  8  decoder  (74LS138), 
the  outputs  of  which  are  used  to  select  the  various  ports  on 
the  card.  The  decoding  circuitry  is  also  enabled  with  the  10 
signal  to  avoid  conflicts  with  memory  addresses. 

Enable  signals  to  the  data  bus  buffers  are  similiar  to 
those  on  the  read/write  memory  card  with  the  exception  that, 
in  this  case,  the  buffers  are  enabled  with  the  10 
(input/output)  signal  rather  than  the  M  (memory)  signal.  The 
data  bus  buffers  used  on  this  card  are  8T26A  bi-directional 
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Keyboard  Control 

The  output  from  the  keyboard  consists  of  a  7  bit 
ASCII  (American  Standard  Code  for  Information 
Interchange)  word  corresponding  to  the  key  depressed, 
plus  a  strobe  signal.  These  8  bits  are  read  by  the 
keyboard  input  port.  Whenever  the  strobe  signal  is  high, 
the  7  bit  ASCII  word  is  valid.  The  program  therefore 
monitors  the  strobe  input,  and  when  it  goes  high,  the 
port  is  read.  The  keyboard  port  is  enabled  by  the  YO 
output  of  the  74L$138,  therefore  the  address  is  07.  The 
port  select  is  also  conditioned  with  the  RD  (read) 
signal  since  the  keyboard  port  is  an  input  port. 

Printer  Control 

The  printer  used  is  a  Bowmar  model  TP-3120  thermal 
printer.  The  printhead  consists  of  a  5  by  5  matrix  of 
heating  elements.  When  one  of  these  heating  elements  is 
turned  on,  the  specially  treated  paper  changes  color  at 
that  location.  In  order  to  print  a  character,  the  ASCII 
data  are  presented  to  the  character  generator  in  the 
printer.  The  character  generator  decodes  the  ASCII  data 
and  enables  the  correct  heating  elements  in  the  print 
matrix.  The  application  of  a  print  strobe  turns  on  the 
elements  which  have  been  enabled,  thus  printing  the 
character.  In  order  to  move  the  printhead,  the  stepper 
motor  must  be  rotated.  Upon  receipt  of  four  stepper 
motor  control  signals,  the  internal  circuitry  turns  the 
motor  to  the  requested  position.  The  printer  control 
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section  of  the  card  consists  of  two  output  ports  and  a 
programmable  interval  timer.  One  port  is  used  to  output 
the  ASCII  data  to  the  character  generator  in  the 
printer.  The  second  port  is  used  to  output  the  stepper 
motor  signals  to  the  printer.  The  interval  timer  is  used 
to  generate  the  print  strobe  and  to  time  the  various 
phases  of  the  motor  control. 

The  ASCII  output  port  is  enabled  by  output  Y2  of 
the  74LS138,  therefore  it  is  located  at  address  05. 

Since  it  is  an  output  port,  it  is  also  enabled  with  the 
write  (WE)  signal.  The  outputs  from  the  port  are 
buffered  with  7406  open  collector  buffers.  These  buffers 
act  as  level  shifters  to  change  the  logic  levels  of  the 
output  port  to  that  of  the  character  generator.  The 
pull-up  resistors  associated  with  the  open  collector 
outputs  are  provided  in  the  printer. 

The  two  highest  bits  of  the  ASCII  word  are  enabled 
with  the  print  strobe.  The  reason  for  enabling  these 
bits  with  the  print  strobe,  is  to  protect  the  thermal 
printhead  on  the  printer.  Whenever  an  invalid  character 
is  presented  to  the  character  generator,  the  printhead 
is  turned  off.  When  there  is  no  print  strobe  present, 
the  two  most  significant  bits  of  the  word  to  the 
character  generator  are  zero.  Since  there  is  no  valid 
character  code  which  has  the  two  most  significant  bits 
zero,  the  printhead  %s  disabled.  It  has  therefore  been 
ensured  that  the  printhead  is  turned  on  only  when  there 
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is  a  print  strobe  present. 

The  output  to  the  stepper  motor  is  very  similiar  to 
the  ASCII  output.  In  this  case  the  port  address  is  04. 
The  open  collector  buffers  in  this  case  are  pulled  up  to 
15  volts  with  1.5K  resistors,  which  produces  the  correct 
logic  levels  for  the  stepper  motor  controls.  By 
outputting  the  appropriate  control  code  to  this  port,  it 
is  possible  to  rotate  the  stepper  motor  and  hence  move 
the  printhead. 

The  programmable  interval  timer  is  selected  with 
the  output  of  an  8  input  NAND  gate.  The  address  inputs 
to  the  N AND  gate  result  in  the  timer  occupying  locations 
00  to  03.  The  8253  interval  timer  contains  three 
independent  16  bit  timers.  Two  of  these  timers  are  used 
by  the  printer  control  logic.  Timer  0  is  used  in  the 
one-shot  mode  to  generate  the  print  strobe.  Whenever 
this  timer  is  triggered  by  a  bit  of  the  stepper  motor 
port,  it  provides  a  13.5  msec  output  pulse.  This  pulse 
is  used  to  turn  on  the  printhead  and  print  the 
character.  The  second  timer  is  used  to  time  the  stepper 
motor  control  signals.  The  control  signals  must  be 
applied  for  20  msec  to  allow  the  motor  time  to  respond. 
The  output  from  this  timer  is  used  to  set  a  74112  J-K 
flip  flop.  The  output  of  this  flip  flop  is  read  by  the 
computer  to  see  if  the  particular  time  interval  is 
complete.  In  the  case  of  the  interrupt  driven  printer 
routines,  this  output  is  used  to  interrupt  the  CPU  via 
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RST  5*5.  When  the  stepper  motor  control  signals  are 
turned  off  (00  sent  to  the  port)  ,  the  flip  flop  is 
cleared. 

The  time  intervals  for  the  printer  control  could 
easily  have  been  implemented  in  software.  A  software 
implementation,  however,  is  not  feasible  in  an  interrupt 
driven  system.  Since  the  printer  routine  is  continually 
interrupted,  the  time  delays  would  be  stretched  by  an 
amount  depending  on  the  number  of  times  the  delay 
routine  is  interrupted.  By  using  a  hardware  timer,  the 
interrupt  programs  do  not  affect  the  length  of  the  time 
delay. 

The  7492  divider  provides  the  clock  signal  to  the 
interval  timer.  The  divider  is  necessary  because  the 
timer  has  a  maximum  input  frequency  of  2  MHz  while  the 
system  clock  frequency  is  3  MHz.  A  divide  by  twelve 
circuit  in  the  input  results  in  a  250  KHz  input  signal, 
and  a  4  microsecond  base  interval. 

The  third  timer  is  used  by  the  scanning  routines  to 
generate  the  time  delay  between  successive  antenna 
readings.  In  this  case  the  output  is  directly  read  by 
the  computer  to  see  when  the  time  interval  is  over. 
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General  Purpose  Input  Port 

The  general  purpose  input  port  occupies  port 
address  06,  This  port  allows  the  computer  to  read  the 
status  of  various  switches  and  signals.  The  outputs  of 
the  interval  timer  are  read  by  bits  6  and  7  of  this 
port.  Bit  0  reads  the  status  of  the  end  cf  travel  (EOT) 
switch  on  the  printer.  This  switch  is  closed  whenever 
the  printhead  has  reached  the  end  of  the  carriage.  The 
mode  control  switch  is  read  by  bit  1  of  the  port,  while 
bit  2  reads  the  status  of  the  alarm  flip  flop  (see 
cassette  control  card) .  The  last  input  on  this  port  is 
the  end  of  conversion  (EOC)  signal  from  the  analog  to 
digital  converter  on  the  antenna/radio  control  card. 

This  signal  indicates  whether  or  not  the  A/D  converter 
has  finished  reading  the  input  signal. 

Cassette  Interface  Card 

The  cassette  interface  card  provides  the  control  logic 
for  the  cassette  tape  system.  Data  for  the  cassette  tape  are 
stored  in  a  buffer  memory  until  the  buffer  becomes  full.  The 
cassette  control  logic  then  turns  on  the  cassette  drive  and 
writes  the  data  onto  the  tape.  The  cassette  drive  is  then 
turned  off.  When  the  cassette  tape  becomes  full,  an  alarm  is 
sounded. 

The  ports  on  the  cassette  interface  card  occupy 
addresses  08  to  0A.  The  data  bus  buffers  for  this  card  are 
enabled  similiarly  to  those  on  the  keyboard/printer  control 
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card.  In  this  case  however,  the  address  decoding  is  such 
that  the  buffers  are  enabled  for  addresses  in  the  range  08 
to  OF. 

The  cassette  control  port  is  a  standard  output  port 
located  at  address  0A.  Three  of  the  outputs  on  this  port  are 
used.  Bit  0  is  used  to  turn  on  the  cassette  drive.  When  the 
output  goes  high,  the  output  of  the  open  collector  buffer 
goes  low.  A  reed  relay  coil,  connected  between  the  output 
and  +5  volts,  is  energized  and  the  contacts  close.  The  6 
volt  power  supply  is  then  connected  to  the  cassette  drive. 
Bit  1  of  this  port  is  used  to  toggle  the  alarm  flip  flop. 

The  alarm  is  discussed  further  in  the  section  on  the 
cassette  alarm.  Bit  2  is  used  to  turn  on  the  CASSETTE  DONE 
LED.  This  LED  (Light  Emitting  Diode)  is  provided  on  the 
front  panel  to  give  a  visual  indication  that  the  cassette 
tape  is  ready  for  removal.  This  output  is  buffered  with  an 
open  collector  buffer  which  directly  drives  the  LED. 

Also  included  on  this  card  is  the  selection  logic  for 
the  4K  read/write  memory  card.  This  card  provides  the  buffer 
memory  for  the  cassette  tape  system.  The  top  four  addresses 
are  decoded  in  such  a  way  that  the  memory  is  located 
directly  after  the  two  read/write  memory  cards  discussed 
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Data  Output 

The  parallel  to  serial  conversion  of  the  cassette 
data  is  performed  with  an  8251  Programmable 
Communication  Interface.  A  parallel  data  word  is  written 
to  an  input  port  of  the  8251,  where  it  is  converted  to 
serial  format,  and  output  along  with  the  associated 
start,  stop,  and  parity  bits.  When  the  8251  is  ready  to 
receive  more  data  ,  it  interrupts  the  CPO  via  the  RST 
7.5  interrupt  input.. 

The  clock  input  to  the  communications  interface  is 
a  1.5  MHz  signal  derived  from  the  3  MHz  system  clock 
with  a  7473  J-K  flip  flop.  The  divide  by  two  circuit  is 
necessary  since  the  maximum  clock  frequency  of  the  8251 
is  2.4  MHz.  The  baud  rate  line  from  the  central 
processor  card  (2400  Hz)  is  connected  to  the  transmit 
data  clock  input  (TxC)  of  the  8251.  This  signal  sets  the 
rate  at  which  data  bits  are  sent  to  the  cassette  drive. 

The  8251  occupies  two  addresses,  but  since  the  read 
(RD)  and  write  (WR)  signals  are  also  connected  to  the 
chip,  the  internal  hardware  contains  four  distinct 
registers,  two  are  read  only  and  two  are  write  only.  The 
chip  select  input  consists  of  the  board  select 
addresses,  the  A1  address  line,  and  the  10  line.  Since 
the  chip  is  selected  when  A1  is  low,  the  port  addresses 
of  the  8251  are  08  and  09.  The  A0  address  line  is 
connected  to  the  control/data  line  (C/D).  This  bit  is 
used  to  select  one  of  the  two  internal  register  pairs. 
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The  resulting  addresses  for  the  8251  ports  are  as 
follows: 

08  -  data  input/output 

09  -  control  word  input/output 
The  data  output  (TxD)  from  the  8251  is  fed  into  a 
circuit  which  is  used  to  convert  the  NRZ  (non  return  to 
zero)  data  from  the  8251  into  phase  encoded  data  to  be 
output  to  the  cassette  drive.  The  output  of  this 
conversion  circuitry  drives  a  741  op-amp  which  is  used 
as  a  comparator.  One  input  to  the  op-amp  is  set  to  a 
level  of  1.4  volts.  When  the  output  of  the  conversion 
circuitry  is  high,  the  output  of  the  741  goes  low.  When 
the  input  is  at  a  logic  0  level,  the  output  goes  high. 
The  high  and  low  output  levels  of  the  op-amp  are  set  by 
the  zener  diodes  in  the  feedback  loop.  The  configuration 
shown  in  figure  17  results  in  an  output  swing  from  -10 
to  +1G  volts.  The  output  of  the  op-amp  is  used  as  a 
current  source  to  supply  current  to  the  recording  head. 
Since  the  series  resistor  (10K)  is  very  large  compared 
to  the  head  resistance,  the  output  does  indeed  act  as  a 
current  source.  The  value  of  the  series  resistor  was 
chosen  by  selecting  a  value  which  would  supply  about 
125%  of  the  current  necessary  to  saturate  the  tape.  This 
value  was  selected  by  trying  various  values,  and 
measuring  the  signal  strengh  when  the  tape  was  read 
back. 


The  cassette  recorder  used  is  a  modified  audio 
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recorder ,  Radio  Shack  model  CTR-43.  The  internal 
connections  to  the  recording  head  were  replaced  with  a 
line  to  the  head  driver  on  the  cassette  control  card. 

Cassette  Alarm 

The  alarm  is  used  to  indicate  that  the  cassette 
tape  is  almost  full  and  should  be  changed.  The  alarm 
itself  is  simply  an  oscillator  driving  a  speaker.  The 
frequency  used  is  600  Hz.  This  frequency  was  obtained  by 
dividing  down  the  baud  rate  (2400  Hz)  with  a  7473  J-K 
flip  flop.  The  output  is  enabled  with  the  output  of  the 
alarm  flip  flop  (see  figure  17). 

The  alarm  flip  flop  is  set  by  toggling  one  bit  of 
the  cassette  control  port.  The  output  of  the  flip  flop 
then  enables  the  alarm,  which  is  then  sounded.  The  alarm 
flip  flop  can  be  reset  with  either  the  CASSETTE  RESET  or 
the  master  RESET.  The  ouput  of  the  flip  flop  can  also  be 
read  by  the  CPU  to  determine  whether  or  not  the  alarm  is 
on. 

Converting  NRZ  to  Phase  Encoded  Data 

The  non  return  to  zero  (NRZ)  data  format  is  one  of 
the  simplest  data  formats.  The  logic  level  is  directly 
proportional  to  the  data  value,  i. e.  a  1  is  represented 
as  a  high  signal  and  a  zero  is  represented  by  a  low 
signal.  Phase  encoded  data  are  slightly  more 
complicated.  In  this  format  the  data  are  stored  in  the 
transitions,  i.e.  a  high  to  low  transition  represents  a 
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0  while  a  low  to  high  transition  represents  a  1.  Only 
the  transitions  which  occur  at  the  midpoint  of  a  data 
cell  are  considered.  The  two  data  formats  can  be 
compared  by  studying  figure  9. 

Although  the  NRZ  data  format  is  simpler,  there  are 
several  advantages  to  using  the  phase  encoded  format. 

The  most  important  factor  favoring  the  phase  encoded 
method  is  the  signal  bandwidth.  From  figure  9  it  can  be 
seen  that  phase  encoded  data  have  a  minimum  of  one  and  a 
maximum  cf  two  transitions  per  data  cell.  This  format, 
therefore,  results  in  a  very  narrow  signal  bandwidth.  If 
a  long  string  of  zeros  or  ones  are  encoded  using  the  NRZ 
format,  the  frequency  can  be  seen  to  extend  down  to 
almost  DC.  The  result  is  then  a  very  large  bandwidth 
when  using  the  NRZ  data  format  (extending  from  almost  DC 
up  to  the  data  transfer  rate) •  The  chief  advantage  of  a 
narrow  signal  bandwidth  is  that  it  allows  a  higher 
signal  to  noise  ratio.  The  low  frequency  response 
required  by  the  NRZ  format  is  particulary  harmful  in 
this  application  because  of  the  low  frequency  noise 
components  introduced  by  the  cassette  drive. 

The  second  major  advantage  of  the  phase  encoded 
format  is  that  it  is  self  clocking.  Since  there  is  at 
least  1  transition  per  data  cell,  the  data  transfer 
clock  rate  can  be  easily  derived  from  the  data  itself. 
The  result  is  that  the  tape  transport  does  not  need 
elaborate  speed  control  since  the  system  that  reads  the 
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Fig.  9  Converting  NRZ  to  Phase  Encoded  Data 


tape  can  use  the  data  to  generate  the  clock  rather  than 
relying  on  its  own  hardware  clock.  The  truth  table  in 
figure  9  illustrates  the  algorithm  used  to  convert  the 
NRZ  data  into  the  phase  encoded  format.  The  circuit 
contained  in  figure  17  is  the  implementation  of  this 
algorith  m. 
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A ntenna/Radi o  Control  Card 

The  antenna/radio  control  card  controls  the  scanning  of 
the  antenna  system.  The  procedure  for  scanning  the  antenna 
system  is  to  first  connect  a  particular  antenna  to  the  radio 
by  energizing  the  appropriate  relay.  All  of  the  active 
channels  are  then  monitored  by  changing  the  channel  on  the 
CB  radio.  The  next  antenna  is  then  connected  and  the 
channels  are  monitored  again.  This  procedure  continues  until 
the  entire  antenna  system  has  been  scanned.  The  output 
signal  from  the  radio  is  converted  to  a  digital  value  by  an 
analog  to  digital  converter. 

The  input/output  ports  on  this  card  occupy  port 
addresses  10  to  15.  The  data  bus  buffers  are  enabled 
similiarly  to  those  on  the  keyboard/printer  control  card. 

The  address  decodicg  on  this  card  is  such  that  the  buffers 
are  enabled  for  addresses  in  the  range  10  to  17.  The  circuit 
diagram  for  this  card  is  given  in  figure  18. 

Antenna  Control 

Most  of  the  logic  used  to  select  the  appropriate 
antenna  is  contained  on  the  relay  control  card.  The 
antenna/radio  control  card  has  only  to  supply  a  binary 
number  corresponding  to  the  antenna  to  be  selected,  and 
a  signal  indicating  whether  the  X  or  Y  antennas  are  to 
be  selected.  The  port  at  address  10  is  used  to  output 
this  code  to  the  relay  control  box. 
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Radio  Control 

Port  14  is  used  to  output  the  channel  code  to  the 
radio.  The  outputs  are  buffered  with  open  collector 
buffers  which  drive  the  optical  isolators  in  the  radio. 
The  procedure  for  selecting  a  particular  radio  channel 
is  simply  to  output  the  appropriate  code  to  port  14. 

When  the  analog  signal  is  returned  from  the  radio 
it  must  be  conditioned  before  it  is  read  by  the  A/D 
converter.  By  referring  to  figure  18  it  can  be  seen  that 
the  input  is  first  buffered  with  a  747  op-amp.  The 
second  stage  is  basically  a  gain  stage  with  an  offset 
adjustment.  The  gain  is  necessary  to  increase  the  low 
signal  level  obtained  from  the  radio.  The  meter  has  a 
full  scale  reading  of  10  volts,  while  the  A/D  converter 
has  a  full  scale  reading  of  5  volts.  In  order  to 
accomodate  these  two  devices  the  signal  is  first 
amplified  to  a  maximum  of  10  volts  and  sent  to  the 
meter.  The  signal  is  then  scaled  by  two  before  it  is 
presented  to  the  A/D  converter. 

The  offset  adjustment  on  the  second  stage  is  very 
important.  The  output  signal  from  the  radio  can  vary 
between  positive  and  negative  signals.  The  offset 
adjustment  shifts  the  signal  so  that  the  output  is 
always  positive.  At  this  point  the  signal  is  sent  to  the 
meter.  The  reason  for  placing  the  meter  at  this  point  is 
so  that  any  noise  picked  up  in  the  long  cable  to  the 
meter  can  be  filtered  out  in  the  next  section. 
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The  filter  section  is  a  simple  one  stage  FC  filter. 
A  FET  is  placed  in  parallel  with  the  resistor  so  that 
the  filter  response  can  be  changed.  The  ability  to 
change  the  filter  response  is  very  important  when 
switching  channels.  In  order  to  filter  out  low  frequency 
noise  components,  the  cutoff  frequency  of  the  filter 
must  be  fairly  low.  As  a  result  of  the  low  cutoff 
frequency,  the  filter  cannot  respond  to  sudden  changes 
in  the  signal  level,  as  happens  when  the  channel  is 
changed.  In  order  to  allow  the  filter  to  respond  to 
channel  changes,  the  filter  bandwidth  must  be  increased 
when  the  channel  is  changing.  The  bandwidth  is  increased 
by  turning  on  the  FET  and  effectively  reducing  the 
resistance  in  the  FC  filter. 

The  filter  bandwidth  is  increased  for  2  msec  when 
the  channel  is  changed.  The  timing  for  the  filter  change 
is  provided  by  a  74123  one-shot.  When  the  one-shot  is 
triggered,  the  output  goes  high  for  2  msec.  The  output 
then  triggers  a  ccraparatcr  constructed  with  a  747 
op-amp.  The  output  of  the  comparator  turns  on  the  FET 
and  increases  the  bandwidth  of  the  filter.  The  trigger 
signal  for  the  one-shot  is  provided  by  the  port  select 
logic.  Whenever  an  I/O  address  of  15  is  detected  by  the 
74LS138  decoder,  output  Y2  goes  low  and  triggers  the 
one-shot. 

The  output  of  the  filter  is  buffered  by  another  747 
op-amp,  scaled  by  two  in  a  resistive  divider,  and  then 
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presented  to  the  analog  to  digital  converter.  The  5. 1 
volt  zener  diode  in  the  input  of  the  A/D  converter  is 
used  to  limit  the  input  voltage  to  the  converter. 

A  start  convert  pulse  must  be  applied  to  the  analog 
to  digital  converter  before  it  will  read  the  input 
signal.  Whenever  the  port  select  logic  detects  an  I/O 
address  of  12  the  74LS138  sends  a  pulse  to  the  start 
conversion  input  of  the  A/D  converter.  When  the 
conversion  is  finished,  the  end  of  conversion  output  is 
set.  As  was  discussed  earlier,  the  end  of  conversion 
(EOC)  output  is  monitored  via  the  general  purpose  input 
port  on  the  keyboard/printer  control  card,  when  the  CPU 
receives  an  end  cf  conversion  signal,  it  reads  the  A/D 
converter  through  pert  13.  The  system  clock  is  divided 
by  two  with  a  74112  J-K  flip  flop  before  it  is  applied 
to  the  clock  input  of  the  A/D  converter.  It  is  necessary 
to  reduce  the  clock  frequency  since  the  ADC0800  has  a 
maximum  clock  frequency  of  2  MHz. 
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Power  Supplies 


Positive  Supplies 

The  five  volt  power  supply  is  used  mainly  to 
provide  power  for  the  logic  circuitry  of  the  computer. 
The  fifteen  volt  supply  is  used  mainly  tc  supply  the 
printer.  The  basic  configuration  for  both  supplies, 
shown  in  figure  19,  is  the  same.  A  diode  bridge  and 
filter  capacitor  supplies  the  unregulated  DC  to  the 
regulator  circuit.  A  standard  three  terminal  regulator 
is  used  to  ccntrol  the  output  voltage.  In  order  to 
supply  the  large  currents  required  (up  tc  5  amps),  the 
regulator  is  paralleled  with  a  power  darlington 
transistor.  Resistors  El  and  E2  act  as  current  dividers 
to  determine  the  ratio  of  current  through  the  regulator 
and  pass  transistor.  The  ratio  is  set  so  that,  at  full 
load,  approximately  90%  of  the  current  flows  through  the 
pass  transistor,  and  only  10%  through  the  regulator. 
Resistor  R3  determines  the  current  at  which  the  pass 
transistor  is  turned  on.  Capacitors  Cl  tc  C4  are  used  to 
decouple  the  input  and  output  of  the  regulator. 

A  crowbar  circuit  is  used  to  protect  the  system 
from  overvoltage.  Whenever  an  overvoltage  condition  is 
detected,  the  crowbar  Circuit  places  a  short  across  the 
input  of  the  regulator.  The  current  drawn  through  the 
short  will  blew  a  fuse.  A  Motorola  MC3423  chip  is  used 
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to  provide  the  crowbar  action.  If  the  output  voltage 
climbs  tc  a  value  determined  by  resistors  R 4  and  R5,  the 
output  gees  low.  The  output  then  draws  current  from  the 
gate  of  the  SCR  and  turns  it  on.  The  current  through  the 
SCR  is  set,  by  RI,  to  be  large  enough  tc  blow  the  fuse. 
For  both  supplies,  R4  and  r5  are  set  so  that  the  crowbar 
circuit  is  tripped  whenever  the  output  rises  2  volts 
above  its  nominal  value. 

Negative  Supplies 

The  negative  power  supplies  are  used  mainly  to 
supply  bias  voltages  to  various  devices  in  the  system 
such  as  the  printer,  A/D  converter,  etc.  The  circuit  is 
a  standard  full  wave  rectifier  followed  by  a  filter 
capacitor  and  a  three  terminal  regulator.  The  regulators 
used  are  rated  for  1  amp  of  current. 
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IV.  SOFTWARE  DESCRIPTION 


The  control  program  for  the  data  acquisition  system  consists 
of  four  major  sections,  the  main  program  and  three  interrupt 
service  subroutines.  Ihe  main  program  controls  the  interface 
to  the  user.  Whenever  the  mode  switch  is  set  to  CONTROL,  the 
program  monitors  the  .keyboard  and  accepts  commands.  A 
command  entered  via  the  keyboard  causes  the  program  to  jump 
to  the  appropriate  keyboard  service  routine. 

When  the  mode  switch  is  set  to  SCAN,  the  system  is 
controlled  by  the  interrupt  system.  In  this  mode,  the 
function  of  the  main  program  is  to  monitor  the  mode  control 
switch  tc  detect  when  the  user  wishes  to  return  to  control 
mode.  The  most  important  interrupt  service  subroutine  is  the 
real  time  clock  routine.  Once  per  second  the  CPU  is 
interrupted  by  this  routine.  The  interrupt  service 
subroutine  increments  the  clock  and  executes  the  scanning 
procedure.  The  data  collected  from  the  antenna  system  are 
then  processed  to  determine  all  of  the  locations  and 
activity  states.  If  it  is  time  to  output  data  to  the  printer 
or  cassette  drive,  the  appropriate  routines  are  called. 

When  the  real  time  clock  routine  decides  that  the  data 
should  be  printed,  the  data  are  loaded  into  the  print 
buffer,  and  the  interrupt  driven  printer  routine  is  called. 
This  routine  enables  the  interrupt  system  so  that  subsequent 
calls  to  the  routine  are  controlled  by  the  interrupt  system. 
This  routine  loads  a  character  into  the  printer,  and  sets 
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the  timer  fcr  the  print  strobe.  Control  is  then  returned  to 
the  interrupted  program.  Upon  termination  of  the  print 
strobe,  an  interrupt  is  generated  so  that  the  program  can 
move  the  printhead  to  the  next  print  position.  When  the 
stepper  motor  control  signals  have  been  applied,  control 
again  returns  to  the  interrupted  program.  The  next  interrupt 
indicates  that  the  printer  is  ready  to  print  the  next 
character. 

The  real  time  clock  routine  can  also  enable  the 
cassette  interface  interrupt  routine.  Whenever  the  cassette 
system  is  ready  to  output  another  character  to  the  cassette 
drive,  it  interrupts  the  system.  The  interrupt  service 
subroutine  then  outputs  the  next  character  to  the  cassette 
system. 

An  interrupt  driven  system  is  used  because  several 
things  must  happen  at  once.  The  system  must  be  able  to  scan 
the  antenna  system,  print  the  data,  and  output  data  to  the 
cassette  drive  all  at  the  same  time.  The  only  feasible  way 
to  allow  all  of  these  operations  to  occur  at  once,  is  to  use 
an  interrupt  driven  system. 

Various  sections  of  the  control  program  are  now 
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Initialization 

The  initialization  program  is  executed  whenever  the 
system  is  reset.  Various  parameters  in  the  system,  such  as 
the  scan  rate,  can  be  set  by  the  user.  When  the  system  is 
initialized,  these  parameters  are  set  to  their  default 
values.  The  default  values  are  therefore  the  values  of  these 
parameters  whenever  the  system  has  been  reset.  If  these 
default  values  are  not  suitable,  they  can  be  changed  by  the 
user.  The  initialization  routine  must  also  reset  the  real 
time  clock  and  initialize  the  printer.  When  ail  of  these 
tasks  have  been  completed,  the  reset  message  is  printed  and 
the  interrupt  system  is  enabled.  Control  then  passes  to  the 
main  program- 

Main  Program 

Tne  actual  main  progam  is  only  a  few  statements  long. 
The  status  of  the  mode  switch  is  first  checked.  If  the  mode 
switch  is  set  to  CONTfiOL,  the  keyboard  program  is  executed. 
If  the  mode  switch  is  set  to  SCAN  the  scan  flag  is  set.  This 
flag  indicates  to  the  real  time  clock  interrupt  routine  that 
the  antenna  system  should  be  scanned  after  the  clock  is 
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Keyboard  Ecu  tines 

The  keyboard  routine  (KEYB)  accepts  characters  from  the 
keyboard  and  decides  if  the  input  corresponds  to  a  valid 
command.  If  it  dees,  the  correct  keyboard  service  routine  is 
executed.  If  the  input  is  not  a  valid  command,  an  error 
message  is  printed. 

All  commands  consist  of  three  characters.  The  keyboard 
routine  reads  these  characters  from  the  keyboard  and  stores 
them  in  a  buffer.  When  three  characters  have  been  received, 
the  program  compares  the  three  character  code  to  a  list  of 
valid  codes  stored  in  a  table  (KYTAF).  This  table  contains 
the  address  of  the  keyboard  service  routine  as  well  as  the 
character  code.  When  a  match  is  found,  the  address  of  the 
keyboard  service  subroutine  is  read  from  the  table  and  the 
service  routine  is  executed. 

The  subroutine  CHKEY  is  called  by  the  keyboard  routine. 
CHKEY  waits  for  a  character  from  the  keyboard,  prints  the 
character,  and  returns  the  ASCII  character  in  the 
accumulator.  If  no  character  is  received  for  two  seconds, 
the  printhead  is  moved  two  positions  to  the  right  so  that 
the  last  character  printed  can  be  seen.  This  routine  also 
converts  any  lower  case  letters  into  upper  case  letters. 

This  conversion  is  necessary  since  the  printer  can  only 
print  upper  case  letters. 
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System  Monitor 

The  system  monitor  consists  of  five  keyboard  service 
subroutines  which  can  be  used  to  study  or  control  the 
system. 

The  DPM  command  is  used  to  display  memory  contents.  The 
starting  and  ending  memory  addresses  are  received  from  the 
keyboard.  The  program  then  prints  the  data  in  the  memory 
area  specified. 

In  order  to  set  memory  locations,  the  STM  routine  is 
called.  In  this  routine,  the  address  of  the  memory  location 
to  be  changed  is  received  from  the  keyboard.  The  program 
then  accepts  the  data  from  the  keyboard  and  stores  it  at  the 
specified  memory  location.  The  address  is  then  incremented 
and  printed.  A  new  data  byte  is  then  received  from  the 
keyboard  and  stored  in  memory.  This  process  continues  until 
a  period  is  received  instead  of  a  data  byte.  Control  is  then 
returned  to  the  keyboard  program.  This  routine  is  useful  for 
loading  a  program  into  read/write  memory.  The  EON  command 
can  then  be  used  to  execute  the  program. 

The  EON  program  is  used  to  manually  execute  programs. 
This  routine  receives  an  address  from  the  keyboard.  Control 
is  then  transferred  to  the  program  residing  at  the  memory 
location  specified. 

Keyboard  service  routines  OUTP  and  INP  are  used  to 
control  data  flow  to  and  from  the  various  ports  in  the 
system.  These  routines  must  first  store  a  program  in 
read/write  memory  and  then  call  the  program. 
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Dis^lax  Eout ires 

The  display  routines  allow  the  user  to  check  the  values 
of  various  parameters  in  the  system.  Once  a  Dumber  of 
parameters  have  been  changed,  it  is  sometimes  useful  to 
recheck  all  the  values  to  see  that  they  have  been  set 
properly.  Besides  allowing  the  user  to  check  specific 
parameters,  the  routine  can  also  print  any  parameters  which 
have  been  changed  from  their  default  values. 

DSP  is  the  keyboard  service  routine  which  controls  the 
display  function.  Following  the  command,  a  space  is 
received.  The  space  is  followed  by  the  three  character  code 
for  the  parameter  to  be  displayed.  The  routine  to  check  the 
character  code  and  jump  to  the  appropriate  display  service 
subroutine  is  sitriliar  to  the  keyboard  routine  (KEYB) •  The 
only  difference  is  the  fact  that  DSP  compares  the  code  to  a 
set  of  valid  codes  in  the  display  table  (DISTB) • 

Two  utility  routines  are  included  in  this  section  to 
facilitate  printing  data.  PHL  is  a  printer  routine  which 
prints  the  hexadecimal  data  in  the  HL  register.  This  routine 
is  useful  for  printing  hexadecimal  data  such  as  addresses. 

In  order  to  print  decimal  data,  the  subroutine  PJRBYT  is 
provided.  PBEYT  takes  the  byte  contained  in  the  accumulator, 
converts  it  to  decimal,  and  prints  the  number.  This  routine 
is  used  to  print  most  of  the  parameters. 

Corresponding  to  each  possible  parameter  is  a  display 
service  routine.  Whenever  the  code  for  a  particular 
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parameter  is  received  by  the  DSP  routine,  the  appropriate 
display  service  routine  is  executed.  Host  of  the  routines 
are  fairly  simple.  The  parameter  is  fetched  frcm  memory, 
converted  to  printable  form,  and  then  printed. 

The  display  routine  corresponding  tc  the  three 
character  code  •ALL*  prints  all  of  the  parameters  which  have 
been  changed  from  their  default  values.  The  procedure  for 
accomplishing  this  task  is  to  successively  compare  each 
possible  parameter  with  its  default  value.  If  the  parameter 
is  still  at  its  default  setting,  the  next  parameter  is 
checked.  If  the  parameter  value  has  been  changed,  the  new 
value  is  printed  before  the  next  parameter  is  checked.  The 
program  continues  in  this  manner  until  all  parameters  have 
been  checked. 

Utility  Subroutines 

The  utility  subroutines  are  a  collection  of  useful 
subroutines  which  are  utilized  by  many  portions  of  the 
program. 

One  utility  program  is  the  multiplication  subroutine 
(KU1T8) .  This  subroutine  performs  an  8  bit  by  8  bit 
multiplication  on  the  numbers  contained  in  the  B  and  C 
registers.  The  16  bi£  result  is  returned  in  the  BC  register,. 
A  standard  shift  and  add  algorithm  is  employed  to  perform 
the  multiplication.  As  with  all  of  the  utility  programs,  the 
only  registers  altered  are  those  required  to  pass  parameters 
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Two  routines  (DECHX  and  HXDEC)  are  used  to  convert 
decimal  numbers  to  hexadecimal,  or  hexadecimal  numbers  to 
decimal.  When  converting  a  hexadecimal  number  to  decimal, 
there  is  a  possibility  of  an  error  since  the  decimal  number 
is  restricted  to  two  digits.  For  this  reason,  the  carry  bit 
is  set  if  the  conversion  cannot  be  performed.  The  calling 
program  should  therefore  check  the  carry  bit  before 
accepting  the  output  of  this  routine. 

In  order  to  convert  ASCII  characters  to  hexadecimal  and 
vice  versa,  two  conversion  routines  CONHX  and  CONAS  are 
used.  In  these  routines,  the  carry  bit  is  set  if  the 
conversion  cannot  be  performed.  The  main  purpose  of  these 
routines  is  to  facilitate  interfacing  to  the  printer  and  the 
keyboard. 

In  order  to  set  many  of  the  parameters,  a  number  is 
entered  via  the  keyboard.  Since  it  is  desireable  to  be  able 
to  enter  the  number  in  decimal,  it  is  necessary  to  convert 
the  two  decimal  characters  to  a  hexadecimal  number.  The 
subroutine  DECKY  receives  two  characters  from  the  keyboard 
and  produces  a  hexadecimal  result. 

Two  suboutines  are  also  provided  to  handle  16  bit 
numbers.  HLS1K  takes  the  hexadecimal  number  contained  in  the 
HL  register  and  loads  the  four  corresponding  ASCII 
characters  into  the  first  four  positions  of  the  print  stack,. 
GTADD  receives  four  ASCII  characters  from  the  keyboard, 
converts  them  to  a  16  bit  binary  number,  and  returns  the 
result  in  the  HL  register. 
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A  number  of 


routines  are  also  provided  to  change  the 
various  register  pairs  by  fixed  amounts.  AD862  adds  682  to 
the  HL  register,  while  AD21  adds  21.  INDE  is  used  to 
increment  the  DE  register  by  21,. 

Also  included  in  this  section  is  the  EEEOE  routine 
which  prints  the  error  message  on  the  printer. 

Stepper  Motor  Control  Programs 

The  procedure  for  moving  the  printhead  cn  the  printer 
is  to  send  the  appropriate  control  signals  for  the  new 
position  to  the  stepper  motor  for  20  msec.  The  new  position 
can  be  one  position  away,  either  to  the  right  or  the  left. 

In  order  to  keep  track  of  the  current  printhead  position,  a 
table  of  stepper  motor  control  signals  (STEP)  is  used.  A 
variable  (PEPOS)  points  to  the  location  in  the  table  that 
contains  the  stepper  motor  control  signals  for  the  current 
position.  In  order  to  move  the  printhead  to  the  right  or 
left,  the  stepper  motor  control  signal  before  or  after  the 
current  one  is  read.  This  new  control  signal  is  then  output 
to  the  printer.  The  two  routines  provided  (MCVL  and  MOVE) , 
move  the  printhead  one  position  to  the  left  cr  to  the  right 
of  its  current  position. 

A  pointer  is  also  used  by  the  printing  routines  to 
point  to  the  position  in  the  print  stack  which  corresponds 
to  the  current  printhead  position.  Whenever  the  printhead  is 
moved,  this  pointer  is  adjusted  so  that  it  points  to  the 
proper  location  in  the  print  stack. 
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A  routine  (HOME)  is  also  provided  to  move  the  printhead 
to  the  home  position.  This  routine  keeps  calling  the  MOVE 
subroutine  until  the  end  of  travel  (EOT)  switch  is  closed. 
The  EOT  switch  is  closed  when  the  printhead  reaches  the  end 
of  the  carriage.  The  home  position  is  two  positions  to  the 
left  of  this  point,  therefore  the  MOVL  subroutine  is  then 
called  twice. 

The  RETN  subroutine  is  used  to  move  the  printhead  from 
the  home  position  to  the  first  print  position  on  the  left 
side  of  the  paper.  This  return  is  accomplished  by  calling 
the  MOVL  subroutine  18  times. 

Printer  Control  Programs 

Tne  printer  control  programs  control  the  printing  of 
characters  on  the  printer.  The  procedure  for  printing  a 
character  is  to  output  the  ASCII  character  to  the  printer, 
and  then  apply  the  print  strobe  for  13.5  msec.  In  order  to 
allow  the  printhead  time  to  cool  down,  the  printhead  should 
not  be  moved  for  at  least  6  msec. 

The  print  routine  (PRINT)  uses  timer  number  0  to 
generate  the  print  strobe.  After  the  ASCII  character  has 
been  sent  to  the  printer,  the  timer  is  initialized,  first 
the  flip  flop  connected  to  the  output  of  the  timer  is 
enabled.  The  correct  timer  count  is  then  loaded  into  the 
timer  and  the  gate  of  the  timer  is  raised.  The  timer  then 
outputs  the  print  strobe.  The  program  then  monitors  the 
timer  flip  flop  until  the  print  period  is  ever.  The  flip 
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flop  is  then  cleared  and  re-enabled.  A  new  timer  count  is 
sent  to  the  timer  to  set  a  delay  of  6  msec.  Again  the  flip 
flop  is  monitored  until  the  time  delay  is  over.  The 
printhead  is  then  moved  one  position  to  the  right  in 
preparation  fcr  printing  the  next  character. 

In  order  to  print  the  entire  contents  cf  the  print 
stack,  the  subroutine  PSTAK  is  called.  This  routine  moves 
the  printhead  from  the  home  position  to  the  first  print 
position,  and  then  calls  PRINT  18  times.  This  routine  prints 
all  of  the  characters  in  the  stack,  and  then  returns  the 
printhead  to  the  home  position. 

A  convenient  way  to  print  messages  on  the  printer  is 
via  the  PRIMM  subroutine.  This  routine  prints  any  ASCII 
characters  that  it  finds  directly  after  the  CALL 
instruction.  It  continues  printing  characters  until  a  null 
(00)  character  is  encountered  in  the  list.  The  routine 
automatically  adjusts  the  return  address  on  the  stack  so 
that  program  execution  continues  with  the  instruction 
immediately  following  the  null  character. 

A  subroutine  (CLPSK)  is  also  provided  to  clear  the 
print  stack.  This  routine  is  necessary  if  a  short  line  is 
printed  via  the  PSTAK  subroutine  immediately  after  a  longer 
line.  Since  the  end  of  the  longer  line  is  still  in  the  print 
stack  when  the  shorter  line  is  printed,  the  end  portion  of 
the  longer  line  is  printed  again. 

In  order  to  print  text  on  the  printer,  the  keyboard 
service  subroutine  PRT  is  provided.  The  routine  first 
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generates  a  carriage  return  and  a  line  feed  before  accepting 
text.  Characters  are  then  printed  as  they  are  entered  from 
the  keyboard.  Special  control  characters  are  provided  to 
allow  the  user  to  generate  a  carriage  return  and  line  feed, 
or  a  backspace.  A  control  character  is  also  frovided  to 
indicate  that  no  more  text  will  be  provided.  Upon  receipt  of 
this  contol  character,  the  program  returns  control  to  the 
monitor. 

Antenna  Control  Programs 

ANT  is  a  keyboard  service  routine  which  allows  the  user 
tc  close  a  particular  antenna  relay.  An  X  or  Y  is  first 
received  from  the  keyboard  to  indicate  which  set  of  antennas 
is  desired.  Ihe  antenna  number  is  then  received  from  the 
keyboard,  converted  to  binary,  and  then  output  to  the 
antenna  control  port  along  with  the  control  bit  (X/Y) ,  which 
specifies  which  set  of  antennas  is  desired. 

After  the  antenna  relay  has  been  activated,  the  system 
reads  the  A/E  converter.  This  function  is  not  necessary,  but 
is  provided  to  facilitate  troubleshooting  the  system.  In 
order  to  convert  the  A/D  value  to  a  voltage,  the  binary 
input  is  multiplied  by  a  constant  to  produce  a  16  bit 
number.  The  constant  was  chosen  so  that  the  most  significant 
byte  of  the  result  corresponds  to  the  voltage  (measured  in 
tenths  of  a  volt).  This  voltage  is  then  printed. 
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Hardware  Timer  Delay 

This  subroutine  (DEL20)  is  called  by  the  stepper  motor 
control  programs*  This  routine  outputs  the  control  signals 
for  the  stepper  motor  and  then  delays  for  20  msec-  Timer 
number  1  is  used  to  time  the  delay.  After  the  count  is 
loaded  into  the  timer,  the  program  monitors  the  timer  flip 
flop  until  the  output  indicates  that  the  delay  period  is 
over. 

C E  Badio  Control  Programs 

Two  keyboard  service  routines  are  included  in  this 
section.  The  SAC  program  allows  the  user  to  set  the  channels 
which  are  to  be  monitored.  This  routine  also  initializes  the 
temporary  print  buffer  in  preparation  for  loading  data  into 
the  buffer.  The  CHN  routine  allows  the  user  to  manually  set 
the  radio  channel  from  the  keyboard. 

Both  SAC  and  CHN  call  a  subroutine  (GCHAN)  which 
receives  a  channel  number  from  the  keyboard,  and  fetches  the 
corresponding  channel  code  from  a  table.  This  routine 
returns  the  ASCII  channel  number,  the  hexadecimal  channel 
number,  and  the  channel  code. 

The  SAC  routine  receives  a  series  of  channel  codes  via 
the  GCHAN  subroutine.  These  channel  codes  are  placed  in  a 
table  (CHN  1  to  CHN 5)  where  they  are  used  by  the  scanning 
programs.  Any  locations  in  the  table  not  filled  with  channel 
codes  are  filled  with  null  characters.  A  variable  (CNUM)  is 
set  to  the  number  of  channels  received.  The  ASCII  characters 
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for  the  channel  numbers  are  stored  in  the  temporary  buffer, 
(see  section  'Seal  Time  Clock  Interrupt  Routine') 

A  variable  NDAT  is  also  set.  This  variable  is  used  by 
the  cassette  routine  to  calculate  when  the  buffer  is  full. 
Since  it  takes  approximately  two  seconds  to  initialize  the 
cassette  system,  the  initialization  should  be  started  two 
seconds  before  the  buffer  is  full.  NDAT  is  the  maximum 
number  of  characters  which  will  be  placed  in  the  buffer 
within  the  next  two  seconds.  NDAT  is  the  product  of  the 
number  of  characters  per  line  (22) ,  the  number  of  seconds 
(2)  ,  and  the  number  of  channels  used  (CNUM) . 

CHN  is  a  keyboard  service  routine  which  allows  the  user 
to  select  the  radio  channel.  This  routine  calls  the  GCHAN 
routine  which  returns  the  channel  code  and  the  channel 
number.  The  channel  code  is  output  to  the  radio.  The  channel 
number  is  stored  in  CHNL  where  it  can  be  read  by  the  display 
routine,. 


l£terrup>t  Driven  Printer  Routine 

The  interrupt  driven  printer  routine  is  called  when 
data  must  be  printed  at  the  same  time  as  other  routines  are 
executing.  This  routine  outputs  appropriate  commands  to  the 
printer  control  card,  sets  the  timer  and  then  exits  from  the 
interrupt  routine.  The  routine  is  not  reentered  until  the 
timer  indicates  that  the  delay  is  over  by  interrupting  the 
system* 


Khen  the  interrupt  system  returns  control  to  the 
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program,  execution  must  begin  at  the  same  place  that 
execution  stepped  at  the  end  of  the  previous  call  to  the 
routine.  A  pointer  (LOC)  contains  the  address  of  the  next 
instruction  to  be  executed.  Ehen  the  interrupt  routine  is 
entered,  this  address  is  loaded  into  the  program  counter  so 
that  execution  begins  at  the  proper  location.  Upon 
completion  of  the  interrupt  routine,  the  address 
corresponding  to  the  next  instruction  to  be  performed  is 
loaded  into  LOC.  Upon  receipt  of  the  next  interrupt  signal, 
execution  continues  from  this  point. 

Initially  the  interrupt  for  this  program  is  disabled. 

In  order  to  start  execution,  the  interrupt  routine  (PTINT) 
is  called  like  a  subroutine.  The  program  then  enables  the 
interrupt  and  places  the  program  under  control  of  the 
interrupt  system.  When  the  interrupt  routine  has  completed 
its  task,  the  interrupt  is  disabled  and  the  location  pointer 
(LOC)  is  set  to  the  start  of  the  routine. 

Characters  to  be  printed  are  stored  in  a  buffer  along 
with  the  carriage  control  characters.  A  variable  (PEE) 
points  to  the  next  character  in  the  buffer  tc  be  printed. 

The  characters  are  loaded  from  the  print  buffer  and  printed 
until  a  carriage  control  character  is  encountered.  Upon 
receipt  cf  a  carriage  return  character,  the  program  executes 
a  carriage  returr  and  a  line  feed.  Printing  then  continues 
with  the  next  character  in  the  print  buffer.  If  an  end  of 
file  character  is  encountered,  the  interrupt  system  is 
disabled  and  control  returns  to  the  interrupted  program. 
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Interrupt  Driven  Printer  Subroutines 

Four  keyboard  service  routines  are  provided  to  control 
the  printer.  The  PEI  routine  enables  the  printer  and  sets 
the  print  interval.  POF  disables  the  printer.  A  flag  (PBOF) 
is  used  to  indicate  whether  the  printer  is  enabled  or  not. 
This  flag  is  read  by  the  scanning  routine  tc  decide  whether 
to  print  the  data  or  not.. 

Ordinarily  the  transmitter  positions  are  printed  by  the 
scan  routine.  A  flag  (ACIOC)  is  used  to  indicate  what  data 
should  be  printed.  When  ACLOC  is  set,  the  flags  are  printed 
instead  of  the  positions.  When  ACLOC  is  reset,  the  positions 
are  printed.  The  POS  routine  resets  the  flag,  while  FIG  sets 
it. 

Eeal  Time  Clock  Subroutines 

Two  keyboard  service  routines  are  provided  to  set  and 
read  the  real  time  clock.  TST  is  used  to  set  the  clock.  The 
interrupt  system  is  first  disabled  so  that  the  clock  is  not 
incremented  while  the  program  is  trying  tc  set  it.  The  hour 
and  minute  information  is  received  from  the  keyboard  and 
stored  in  the  clock  counters.  Upon  receipt  cf  a  space,  the 
interrupt  system  is  enabled  and  the  deck  starts. 

The  TIM  routine  is  used  to  print  the  time.  The 
interrupt  routine  is  first  disabled  and  the  time  stored  in  a 
temporary  location.  The  interrupt  system  is  then  reenabled 
and  the  tine  is  output  to  the  printer. 
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Scan  Subroutines 

This  section  contains  a  number  of  routines  which  read 
the  keyboard  and  set  the  appropriate  internal  parameters. 
Parameters  which  can  be  set  include  the  scan  interval,  the 
cassette  store  interval,  the  multiplier  constant  for  the 
interpolation  algorithm,  the  test  antenna  comparator  value, 
the  distance  at  which  the  scan  rate  will  be  increased,  and 
the  percentage  for  the  activity  algorithm. 

Two  keyboard  service  routines  are  also  included  to 
control  the  population  matrix  facility.  PPM  prints  the 
population  matrix  for  one  transmitter.  A  number  is  received 
from  the  keyboard  which  indicates  the  transmitter  data  to  be 
printed,.  The  program  then  fetches  the  data  for  the  correct 
transmitter  and  outputs  it  to  the  printer-  CLP  clears  the 
entire  population  matrix. 

Two  utility  routines  are  included  to  facilitate 
printing  the  population  data  (see  section  ’Real  Time  Clock 
Interrupt  Routine1)-  PRT16  takes  a  16  bit  binary  number, 
converts  it  to  decimal,  and  prints  the  result.  The  routine 
is  written  in  such  a  manner  that  the  full  range  of  0  to 
65,536  can  be  printed.  Individual  digits  are  printed  with 


the  PRTNE  routine 
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Interrupt  Routine  for  Cassette  Interface 

Whenever  the  cassette  system  is  ready  tc  receive 
another  character,  the  CPU  is  interrupted  via  RST  7.5.  The 
cassette  interrupt  service  subroutine  then  outputs  a 
character  to  the  cassette  interface  port. 

The  routine  first  checks  CRDY  to  see  if  the  cassette 
drive  is  ready  to  receive  data.  CRDY  is  cleared  by  the 
scanning  program  if  the  cassette  drive  has  not  reached 
proper  operating  speed.  If  the  cassette  drive  is  not  ready 
to  receive  data,  a  delete  character  is  output.  If  the 
cassette  system  is  ready,  a  character  is  loaded  from  the 
cassette  buffer  and  sent  to  the  communication  interface.  The 
cassette  buffer  is  then  checked  to  see  if  there  are  more 
characters  tc  be  output.  If  there  are  more  characters, 
control  is  returned  to  the  interrupted  program.  The  next 
character  is  output  upon  receipt  of  the  next  interrupt. 

When  the  cassette  buffer  is  empty,  the  program  checks 
to  see  if  the  cassette  tape  is  full.  The  tape  is  checked  by 
reading  the  CFIN  flag,  which  is  set  if  the  user  has  reset 
the  cassette  system  after  inserting  a  new  tape.  If  CEIN  is 
set,  the  cassette  system  is  reset  and  the  CASSETTE  DONE  lamp 
is  turned  on  before  the  cassette  drive  is  turned  off. 

Before  returning  control  to  the  interrupted  program, 
the  interrupt  flip  flop  is  reset  to  reenable  the  interrupt 
system. 
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Cassette  Interface  Subroutines 

Data  in  the  cassette  buffer  are  stored  in  the  following 
for  mat: 

<G5>ASCII  data<DELXCR> 

The  group  separator  <GS>  is  used  to  indicate  to  the  cassette 
tape  reader  that  a  new  line  is  starting.  The  delete 
character  <DEL>  is  inserted  in  each  line  to  synchronize  the 
receiving  system  if  it  has  slipped  out  of  phase.  A  delete 
character  is  used  since  its  ASCII  representation  consists  of 
a  string  of  ones.  The  carriage  return  <CB>  is  used  to 
indicate  the  end  of  a  line.  The  receiving  system  inserts  a 
line  feed  as  well  as  a  carriage  return. 

In  order  to  facilitate  loading  control  characters  into 
the  cassette  buffer,  a  series  of  utility  routines  are 
provided.  CRLF  loads  a  delete  and  a  carriage  return  into  the 
buffer.  NLINE  leads  a  group  separator.  L EOF  is  a  subroutine 
which  loads  a  delete  plus  two  file  separators.  A  one  second 
delay  routine  is  also  included. 

The  last  line  on  the  cassette  tape  is  stored  in  the 
following  format: 

<GS>ASCII  data<DEL><CBXDEL><FSXFS> 

In  this  case  two  file  separators  are  added  at  the  end  of  the 
line.  The  receiving  system,  upon  receipt  of  the  file 
separators,  stops  reading  data  from  the  tape. 

The  cassette  buffer  is  a  section  of  read/write  memory 
reserved  for  this  purpose.  In  order  to  change  the  location 
of  the  cassette  buffer,  the  CST  and  CEN  subroutines  are  used 
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to  set  the  starting  aDd  ending  addresses  of  the  buffer. 

A  keyboard  service  routine  (ALM)  is  also  included  which 
turns  on  the  cassette  alarm.  The  routine  is  included 
strictly  for  maintenance  purposes. 

If  the  user  wishes  to  control  the  cassette  drive  from 
the  keyboard,  the  two  routines  CON  and  COP  are  used.  CGN 
turns  on  the  cassette  drive,  while  COF  turns  it  off.  The 
cassette  timer  is  used  to  keep  track  of  the  amount  of  tape 
left.  The  CTP  routine  receives  the  tape  length  from  the 
keyboard,  converts  the  time  to  seconds,  and  loads  the 
cassette  timer  with  the  result.  Whenever  the  cassette  drive 
is  on,  this  timer  is  decremented  every  second.  When  it 
reaches  zero,  the  tape  is  full. 

If  the  operator  wishes  to  close  the  cassette  tape  file 
manually,  the  STP  command  is  issued.  The  function  of  this 
program  is  to  output  file  separators  to  the  cassette  tape  so 
that  the  receiving  system  knows  that  there  is  no  more  data 
on  the  tape.  The  cassette  drive  is  turned  on  and  the 
cassette  system  initialized.  Two  file  separators  are  then 
loaded  into  the  cassette  buffer  directly  after  the  last  data 
line.  The  cassette  pointers  are  then  set  sc  that  the  entire 
buffer  will  be  output.  After  a  delay  of  one  second,  to  allow 
the  cassette  drive  to  reach  operating  speed,  the  CRD Y  flag 
is  set.  The  CRDY  flag  indicates  to  the  cassette  interface 
service  subroutine  that  the  data  can  be  output. 

A  keyboard  service  routine  is  also  provided  which 
allows  the  user  to  type  characters  directly  into  the 
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cassette  buffer.  This  routine  is  essentially  the  same  as  the 
PET  routine  discussed  earlier.  In  this  case  the  characters 
are  also  loaded  into  the  cassette  buffer.  The  control 
characters  required  by  the  cassette  system  are  also  loaded 
before  and  after  each  line. 

Real  Time  Clock  Interrupt  Routine 

As  data  are  collected  from  the  antenna  system,  they  are 
processed  and  stored  in  a  temporary  buffer.  If  the  data  are 
to  be  printed,  they  are  moved  from  the  temporary  buffer  into 
the  print  buffer  and  then  printed.  The  reason  for  using  two 
buffers  is  because  the  printer  takes  several  seconds  to 
print  the  entire  contents  of  the  buffer.  Since  the  data  may 
change  every  second,  there  is  a  possibility  that  the  data 
will  be  changing  as  the  printer  is  trying  to  print  it.  The 
data  are  therefore  transferred  from  the  temporary  buffer 
into  the  print  buffer.  Any  changes  are  then  Hade  to  the 
temporary  buffer  while  the  data  in  the  print  buffer  are 
printed.  The  format  of  the  temporary  buffer  is  as  follows: 

TTTTTT  CC  XXX  Y Y Y  A BT  <CC> 

TITITT  CC  XXX  YYY  AET  <CC> 

TTTTTT  CC  XXX  YYY  AET  <CC> 

TTTTTT  CC  XXX  YYY  A  BT  <CC> 

TTTTTT  CC  XXX  YYY  AET  <CC> 
where  TTTTTT  is  the  time  (hr,  min,  sec) 

CC  is  the  channel  number 

XXX  is  the  position  on  the  X  axis  (antenna  XX. X) 
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YYY  is  the  position  on  the  Y  axis  (antenna  YY.Y) 

A  is  the  activity  flag,  with  a  0  signifying  a  motionless 
transmitter,  and  a  1  indicating  a  transmitter  in  motion, 
B  is  a  flag  indicating  whether  the  transmitter  is  atove  or 
below  the  sncw.  This  feature  is  not  implemented. 

T  is  the  test  antenna  flag.  A  1  indicates  that  the  radio 
interference  is  above  the  predetermined  level. 

<CC>  is  the  carriage  control  character.  A  carriage  return 
(0D)  indicates  the  end  of  a  data  line.  An  end  of  file 
character  (1C)  indicates  that  the  current  line  is  the 
last  data  line  in  the  buffer. 

Several  sections  of  the  buffer  are  set  by  the  SAC 
subroutine  when  the  active  channels  are  set.  The  channel 
numbers  are  loaded  into  the  temporary  buffer  as  well  as  the 
carriage  control  characters.  Spaces  are  also  inserted 
between  the  data  sets.  The  correct  time,  positions,  and  the 
flags,  are  inserted  by  the  scan  subroutines. 

The  real  time  deck  interrupt  routine  is  executed  upon 
receipt  of  the  BST  6.5  interrupt.  This  routine  controls  the 
scanning  of  the  antenna  system  as  well  as  incrementing  the 
real  time  clock.  The  interrupt  routine  first  resets  the 
interrupt  flip  flop  so  that  further  interrupts  can  be 
processed.  The  real  time  clock  is  then  incremented.  A  flow 
chart  for  this  routine  is  given  in  figure  10. 

Once  the  clock  has  been  incremented,  the  alarm  system 
is  serviced.  If  the  alarm  is  on,  the  alarm  flip  flop  is 
tested  to  see  if  the  alarm  has  been  reset.  If  the  alarm  has 
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been  reset,  the  end  of  file  flag  is  set.  This  flag  ensures 
that  end  of  file  characters  are  stored  on  the  cassette  tape 
after  the  data  are  stored.  A  flag  is  also  set  to  indicate 
that  the  alarm  has  been  acknowledged.  The  routine  then 
executes  the  scanning  procedure. 

If  no  alarm  condition  exists,  the  cassette  drive  is 
tested  to  see  if  it  is  on.  If  it  is  not  on,  the  scanning 
procedure  is  executed.  If  the  cassette  drive  is  on,  the  tape 
timer  is  decremented  and  checked  to  see  if  the  tape  is  full. 
If  the  tape  is  full,  the  alarm  is  sounded. 

After  the  alarm  has  been  serviced,  program  execution 
continues  at  D0N1  (see  figure  10).  At  this  pcint  the  program 
determines  whether  or  not  the  antennas  should  be  scanned. 

The  scan  fregueDcy  is  controlled  by  the  scan  counter.  When 
the  counter  has  been  decremented  to  zero,  the  counter  is 
reset  and  the  scanning  procedure  is  executed. 

The  flow  chart  for  the  scan  routine  is  given  in  figure 
11.  The  antenna  system  is  monitored,  and  all  readings  are 
stored  in  a  table.  The  procedure  for  testing  the  antenna 
system  is  to  select  an  antenna,  and  then  record  the  signal 
strengths  on  this  antenna  for  all  channels.  This  procedure 
could  have  been  reversed;  that  is,  select  a  channel  and  then 
scan  all  antennas  for  that  particular  channel.  This  method 
has  the  disadvantage  that  the  antenna  relays  would  be  used 
more  often.  For  example,  if  all  five  channels  are  monitored, 
the  antenna  relays  would  be  selected  five  times  as  often. 

Since  it  takes  a  finite  time  for  the  radio  to  respond 
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to  a  channel  change,  or  for  the  relays  to  clcse,  a  three 
millisecond  delay  is  inserted  before  the  A/D  converter  is 
read.  The  delays  are  implemented  with  the  hardware  timer. 

The  hardware  timer  is  used  so  that  the  delay  time  is  not 
affected  by  the  other  interrupt  routines. 

After  the  antenna  system  has  been  scanned,  the  A/D 
readings  for  all  channels  on  all  antennas  are  stored  in  a 
table  in  read/write  memory.  The  data  must  then  be  processed 
to  determine  the  transmitter  locations. 

The  subroutines  used  to  calculate  the  transmitter 
positions,  set  the  flags,  control  the  cassette  drive,  and 
control  the  printer,  are  discussed  in  detail  later.  The 
first  subroutine  called  (LOADA) ,  calculates  the  transmitter 
positions  based  on  the  data  in  the  table,  and  loads  the  data 
into  the  temporary  buffer.  This  subroutine  also  increments 
the  counters  in  the  population  matrix  corresponding  to  the 
positions.  The  real  time  clock  is  then  loaded  into  the 
temporary  print  buffer  via  the  subroutine  IDT  ME. 

The  activity  flags  are  then  tentatively  set  by  the 
ACTAD  subroutine.  This  subroutine  calculates  the  activity 
based  on  the  relative  A/D  readings.  If  lateral  motion  is 
detected  at  a  later  time,  these  flags  are  corrected.  The 
algorithm  for  the  activity  states  uses  the  scan  interval  as 
a  timer.  For  this  reason,  the  flags  are  tentatively  set  at 
this  time  since  lateral  motion  is  only  checked  every 
cassette  store  interval. 

As  discussed  earlier,  if  a  transmitter  is  found  within 
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a  predeter mi red  distance  of  the  master  transmitter/  the 
cassette  store  rate  is  increased.  The  cassette  store  rate  is 
controlled  by  the  CSINC  subroutine. 

The  scan  routine  now  determines  if  the  data  should  be 
output  to  the  cassette.  If  the  cassette  store  interval  is 
not  over,  the  scan  routine  is  aborted.  If  the  cassette  store 
interval  is  ever,  the  test  antenna  flags  and  the  above/below 
flags  are  loaded  irtc  the  temporary  buffer  by  ST TAN  and 
STABL. 

The  position  and  activity  states  for  all  tr ansmi tters 
are  then  compared  to  their  values  at  the  end  of  the  previous 
cassette  store  interval.  If  any  of  the  transmitter  data  have 
changed,  the  data  for  that  particular  transmitter  are  sent 
to  the  cassette  buffer.  This  function  is  implemented  by  the 
LCDIC  subroutine. 

The  print  interval  is  then  checked  to  see  if  the  data 
should  be  printed.  If  the  print  interval  is  over,  the  entire 
temporary  buffer  is  loaded  into  the  print  buffer  by  IDFBT, 
and  the  interrupt  driven  printer  routine  (PTINT)  is  called. 

After  the  scan  routines  have  been  executed,  the 
cassette  system  is  serviced,.  If  the  cassette  drive  is  not 
on,  the  cassette  buffer  is  checked  to  see  if  it  is  full.  If 
the  buffer  is  full,  the  cassette  drive  is  turned  on  and  the 
cassette  interface  is  initialized,.  A  flag  is  also  set  to 
indicate  that  the  drive  is  not  ready  to  receive  data  since 
it  has  not  reached  operating  speed  yet. 

If  the  cassette  drive  is  on,  a  counter  is  tested  to 
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determine  whether  cr  not  the  drive  is  ready  to  receive  data. 
If  the  drive  is  ready  to  receive  data,  the  end  of  file  flag 
is  checked.  If  the  alarm  has  been  acknowledged  (end  of  file 
flag  set) ,  end  of  file  characters  are  loaded  into  the  buffer 
after  the  data.  If  there  has  been  no  alarm  acknowledgement, 
record  separator  characters  are  loaded  instead.  At  this 
point  a  flag  is  set  to  indicate  that  the  cassette  is  ready 
to  receive  data.  As  was  seen  earlier,  this  flag  is  monitored 
by  the  cassette  interrupt  routine  to  determine  whether  it 
should  start  transferring  the  buffer  data  to  the  cassette 
tape. 

A  population  matrix  facility  is  also  provided.  A  matrix 
is  stored  in  read/write  memory  with  a  counter  corresponding 
to  each  antenna  crossing.  Each  scan  interval,  after  the 
positions  have  been  determined,  the  counter  corresponding  to 
the  correct  position  is  incremented. 

Scan  Subroutines 

The  scan  subroutines  are  a  collection  of  subroutines 
whicn  are  called  by  the  real  time  clock  interrupt  routine. 
After  the  data  from  the  antennas  has  been  stored  in 
read/write  memory,  these  routines  process  the  data  and 
calculate  the  transmitter  positions,  activities,  etc. 
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Position  Calculations 

The  transmitter  positions  are  calculated  t>y  the 
POSAX  subroutine.  When  calling  the  subroutine,  the  DE 
register  is  pointed  at  the  antenna  data  for  a  particular 
channel.  The  subroutine  returns  the  transmitter 
positions  in  ASCII,  the  antenna  number  of  the  antenna 
nearest  to  the  transmitter,  and  the  A/C  reading  on  the 
closest  antenna,  four  variables  are  used  to  keep  track 
of  the  various  readings.  APREV  contains  the  A/D  reading 
for  the  previous  antenna.  APRES  contains  the  A/D  reading 
for  the  antenna  with  the  largest  signal  encountered  so 
far.  ALAST  and  ANEXT  contain  the  readings  for  the 
antennas  immediately  before  and  immediately  after  the 
antenna  with  the  maximum  signal.  The  variable  MAXNC 
contains  the  number  of  the  antenna  which  was  found  to 
have  the  largest  signal. 

The  routine  first  scans  through  the  antenna  data 
and  compares  each  reading  with  the  previous  maximum.  If 
the  new  reading  is  less  than  the  previous  maximum,  it  is 
ignored.  If  the  new  reading  is  greater  than  the  previous 
maximum,  the  data  for  the  new  antenna  ( ALAST ,  APBES, 
ANEXT,  and  MAXNO)  replace  that  of  the  previous  maximum. 
Antenna  readings  are  checked  in  this  manner  until  all 
have  been  checked. 

The  routine  new  knows  approximately  where  the 
transmitter  is  located  along  this  axis.  The  data  must 
now  be  analysed  to  decide  if  the  transmitter  is  directly 
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under  the  antenna  with  the  largest  signal,  or  between 
this  antenna  and  one  of  its  neighbours.  The  A/D  reading 
on  the  maximum  antenna  is  first  multiplied  by  25,  and 
the  readings  on  the  two  neigbouring  antennas  are 
multiplied  by  the  multiplier  constant  (CMU1T).  If  CMULT 
times  a  neighbouring  antenna  reading  is  greater  than  25 
times  the  maximum  antenna  reading,  the  transmitter  is 
assumed  to  be  between  the  two  antennas,  for  example,  if 
CMUL1  is  set  to  50,  and  the  maximum  antenna  is 
determined  to  be  XX,  if  antenna  XX+1  has  a  signal 
greater  than  half  that  of  antenna  XX,  the  transmitter  is 
assumed  to  be  at  XX.  5,.  If  both  neighbouring  antennas 
have  signals  sufficiently  close  to  the  maximum  antenna, 
the  transmitter  is  assumed  to  be  under  the  maximum 
antenna.  Before  returning  to  the  calling  program,  FOSAX 
stores  the  ASCII  characters  correscnding  to  the  antenna 
number  in  locations  LCY 5  to  LCY5+2.  The  number  of  the 
nearest  antenna  is  returned  in  NEARY. 

The  POSAX  subroutine  is  called  by  the  LDDT 
subroutine.  This  subroutine  calculates  bcth  coordinates 
for  a  particular  channel,  and  loads  the  data  into  the 
temporary  buffer.  The  routine  is  entered  with  register  A 
containing  a  number  corresponding  to  the  transmitter 
data  to  be  leaded.  Upon  entering  the  routine,  various 
pointers  are  set  up  to  point  at  variables  corresponding 
to  the  transmitter  number  selected.  A  pointer  is  set  to 
the  activity  file.  The  activity  file  contains  the  A/D 
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reading  for  the  maximum  antenna  on  the  various  channels. 
A  "pointer  is  also  set  to  point  to  the  positions  in  the 
temporary  buffer  where  the  position  data  are  stored..  The 
DE  register  is  then  pointed  at  the  X  aDtenna  data  for 
the  transmitter  selected,  and  the  POSAX  subroutine  is 
called.  The  position  returned  by  POSAX  is  then  leaded 
into  the  temporary  buffer.  The  value  returned  in  NEARY 
is  transferred  to  NEARX.  POSAX  is  then  called  again  to 
calculate  the  position  on  the  I  axis.  The  data  are  again 
transferred  into  the  temporary  buffer.  Before  returning 
to  the  calling  program,  the  A/D  value  cn  the  maximum 
antenna  is  stored  in  the  activity  file. 

In  order  to  load  the  data  for  all  channels  into  the 
temporary  buffer,  LDDAT  must  be  called  several  times. 
LDDAT  is  called  by  the  LCADA  subroutine.  Before  loading 
the  data  into  the  temporary  buffer,  the  activity  file  is 
transferred  to  the  previous  activity  file.  Hhen  LDDAT  is 
called,  the  new  A/D  values  are  stored  in  the  activity 
file.  Since  the  activity  routines  compare  the  present 
A/D  readings  with  the  previous  readings,  a  file  is  kept 
of  the  previous  as  well  as  the  present  readings.  LDDAT 
is  then  called  once  for  each  active  channel.  The 
transmitter  locations  for  all  active  channels  are 
therefore  loaded  into  the  temporary  buffer. 

LOADA  also  calls  LDPOP  for  the  first  three 
transmitters.  This  routine  increments  the  counter  in  the 
population  matrix  corresponding  to  the  transmitter 
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position.  Since  the  two  nearest  antenna  numbers  are 
stored  in  NEAEX  and  NEARY,  this  routine  uses  these 
values  to  determine  which  counter  should  be  incremented. 
This  routine  is  entered  with  register  A  containing  the 
transmitter  number. 

Loading  the  Time 

The  subroutine  LDTME  loads  the  real  time  deck  into 
the  temporary  buffer.  The  real  time  clock  counters  are 
first  converted  to  ASCII,  and  then  loaded  into  all  five 
data  lines  in  the  temporary  buffer. 

Activity  Calculations 

The  scan  routine  also  determines  the  activity  state 
of  the  transmitters,.  The  subroutine  ACT  determines  the 
activity  state  for  the  transmitter  whose  number  is 
entered  in  the  accumulator.  If  no  motion  is  detected  for 
five  scar  intervals,  the  activity  flag  is  set  to  zero. 

If  motion  is  detected,  the  flag  is  set  to  one. 

Various  pointers  are  first  set  to  point  at  various 
variables.  The  variables  used  are  the  past  A/D  reading, 
the  present  A/D  reading,  and  the  activity  flag.  The 
present  and  past  A/D  readings  are  then  compared.  If  the 
two  values  are  within  a  certain  percentage  (ACPCT)  of 
each  other,  the  transmitter  is  assumed  to  be  still.  When 
this  condition  is  detected,  the  activity  counter  is 
decremented.  If  no  motion  is  detected  for  five 
successive  scan  intervals,  the  activity  flag  is  set  to  a 
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one-  If  motion  is  detected,  the  activity  counter  is 
reset  to  five,  and  the  activity  flag  is  set  to  a  zero. 

In  order  to  set  the  activity  flags  for  all 
channels,  the  ACT  subroutine  is  called  five  times  by  the 
ACTAE  subroutine.  ACTAD  therefore  sets  the  activity 
flags  for  all  five  channels.  As  discussed  earlier,  these 
flags  should  be  overriden  if  lateral  movement  is 
detected. 

Cassette  Store  Rate 

The  Pythagorus  Theorem  is  used  to  calculate  the 
distance  between  two  transmitters.  In  order  to  implement 
this  algorithm,  a  square  root  function  is  required. 
Subroutine  SQRT  finds  the  square  root  of  the  number 
entered  in  the  DE  register.  The  result  is  returned  in 
the  accumulator.  The  algorithm  used  is  one  of  successive 
approximations.  Initially  the  answer  is  assumed  to  be  at 
the  midpoint  of  the  possible  region  (00  to  128).  The 
guess  is  then  squared  and  compared  to  the  number.  Using 
the  result  of  the  comparison,  the  region  of  possible 
answers  is  divided  by  two  by  setting  the  guess  to  be  a 
new  maximum  or  minimum  value.  The  next  guess  is  chosen 
to  be  at  the  half  way  point  of  the  new  region.  This 
process  continues  until  the  region  has  been  reduced  to  a 
single  integer.  This  number  is  then  returned  in  the 
accumulator. 

Before  any  distances  can  be  calculated,  the 
coordinates  oust  be  expressed  as  a  single  integer. 
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Initially  each  coordinate  is  stored  as  three  ASCII 
characters.  Subroutine  PACK  takes  the  three  characters 
pointed  to  by  the  HL  register  and  converts  the  number  to 
a  single  byte.  In  order  to  accommodate  the  fractional 
part  of  the  coordinate,  the  answer  is  multiplied  by  two 
before  it  is  returned  in  the  accumulator. 

The  distance  between  any  two  transmitters  can  be 
determined  with  the  DIST  subroutine.  This  subroutine 
utilizes  the  PACK  subroutine  to  obtain  the  coordinates 
of  each  transmitter.  The  distance  is  then  calculated 
using  the  Pythagorus  Theorem.  The  result  is  returned  in 
register  A. 

The  DISTA  subroutine  calculates  the  distance 
between  the  first  transmitter  and  the  transmitter  whose 
number  is  entered  in  the  accumulator.  The  DIST 
subroutine  is  employed  to  do  the  calculations. 

It  is  sometimes  desireable  to  increase  the  cassette 
store  rate  when  a  transmitter  gets  within  a  certain 
distance  (DISTC)  of  the  first  transmitter.  CSINC 
controls  the  cassette  store  rate.  The  DISTA  subroutine 
is  used  to  calculate  the  distance  between  a  transmitter 
and  the  first  transmitter..  If  one  of  the  distances  is 
less  than  DISTC,  the  cassette  store  rate  is  increased  to 
the  scan  rate.  If  the  activity  state  of  the  transmitter 
that  is  within  range  is  zero,  the  rate  is  not  increased. 
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Setting  the  flags 

The  activity  flags  are  set  by  the  ACTAD  subroutine 
and  then  cveridden  by  the  routine  which  loads  the  data 
into  the  cassette  buffer  (LOADC) .  The  IOADC  subroutine 
is  discussed  later* 

The  test  antenna  error  flags  are  set  by  the  STTAN 
subroutine.  This  subroutine  compares  the  readings  on  the 
test  antenna  with  a  comparator  value  (TANCP) *  If  the 
reading  for  a  particular  charnel  is  greater  than  the 
comparator  value,  the  flag  is  set,  otherwise  it  is 
reset. 

STAEL  sets  the  above/below  flag.  This  flag  is 
intended  to  indicate  whether  the  transmitter  is  above  or 
below  the  snow.  Since  this  feature  is  not  yet 
implemented,  a  zero  is  stored  for  these  flags. 

Loading  the  Cassette 

A  single  line  of  data  from  the  temporary  buffer  can 
be  transferred  to  the  cassette  buffer  by  the  LBC  AS 
subroutine.  The  number  corresponding  to  the  transmitter 
data  to  be  loaded  is  entered  in  the  accumulator.  This 
subroutine  first  leads  a  group  separator,  then  the  data, 
and  finally  a  carriage  return. 

The  subroutine  LOADC  decides  whether  or  not  data 
for  a  particular  transmitter  are  sent  to  the  cassette 
buffer.  This  subroutine  is  called  every  cassette  store 
interval.  The  routine  compares  the  position  and  activity 
of  the  transmitter  with  its  position  and  activity  for 
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the  last  cassette  store  interval.  If  any  data  have 
changed,  the  data  for  that  transmitter  are  loaded  into 
the  cassette  buffer  by  calling  LDCAS.  In  order  to  store 
the  data  for  all  possible  transmitters,  the  LODEC 
subroutine  calls  LOADC  once  for  each  active  channel. 

Loading  the  Printer 

In  order  to  print  the  data,  it  must  be  loaded  into 
the  print  buffer.  The  interrupt  driven  printer  routine 
(PTINT)  is  then  called.  LDPRT  transfers  the  data  from 
the  temporary  buffer  into  the  print  buffer.  The  ACLOC 
flag  is  first  checked  to  determine  whether  the  locations 
or  the  flags  should  be  printed.  If  the  positions  are  to 
be  printed,  the  real  time,  the  channel  numbers,  and  the 
X  and  Y  coordinates  are  loaded  into  the  print  buffer. 

The  coordinates  are  followed  by  the  carriage  control 
characters.  If  the  flags  are  to  be  printed,  they  are 
transferred  to  the  print  buffer  instead  cf  the  position 
coordinates. 

Utility  Subroutines 

Three  utility  subroutines  are  also  included  in  this 
section.  INCD5  increments  the  DE  register  five  times, 
while  IHL20  increments  the  HL  register  twenty  times.  A 
general  purpose  pointer  incrementing  subroutine  (INPNT) 
is  also  included.  Pointers  to  be  incremented  in 
multiples  of  ^  are  loaded  into  I1T1  to  I1T5.  Pointers  to 
be  incremented  in  multiples  of  22  are  entered  in  I22T1 
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to  I22T3.  Register  A  is  then  leaded  with  the  number  of 
times  the  routine  should  increment  the  variables.  For 
example,  if  register  A  is  loaded  with  3,  the  variables 
in  X1T1  tc  I1T5  are  incremented  by  3,  while  the 
variables  in  I22T1  to  I22T3  are  incremented  by  66, 


V.  SUMMARY 


Initial  testing  demonstrates  that  the  data  aguisition  system 
successfully  monitors  the  antennas  and  locates  a  transmitter 
placed  under  the  grid.  All  features  of  the  system  operate  as 
expected,. 

Although  the  system  functions  as  planned,  modifications 
could  be  made  to  increase  its  versatilty.  Much  of  the 
software  required  to  produce  an  above/below  the  snow  flag  is 
already  incorporated  into  the  system.  In  order  to  make  this 
feature  operational  a  program  has  to  be  added  which  would 
process  the  data  to  determine  whether  the  transmitter  is 
above  or  below  the  snow.  The  subroutines  to  set/reset  the 
flag  and  lead  the  flag  onto  the  cassette  tape  cr  printer  are 
included  in  the  present  software. 

Keyboard  entry  of  commands  adds  greatly  to  the 
versatility  of  the  system.  Any  number  of  commands  can  be 
added  to  modify  the  operating  procedure  of  the  system. 
Commands  are  already  included  which  allow  the  user  to  modify 
the  activity  algorithm  or  the  interpolation  algorithm. 

Some  of  the  final  data  processing  could  also  be 
implemented  in  this  system.  This  includes  such  features  as 
calculating  the  heme  range  of  animals,  velocities  of 
movement,  etc.  In  most  cases,  however,  this  processing  is 
best  done  on  a  general  purpose  computer  where  the  reguired 
programs  are  more  easily  developed.  All  of  the  data  reguired 
for  many  of  these  features  are  already  included  on  the 
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cassette  tape. 

Besides  the  sfecific  application  considered  nere,  the 
system  could  be  modified  for  many  other  applications.  The 
size  of  the  grid  could  be  increased  to  allow  for  tracking 
larger  animals.  With  miner  modifications  to  the  program,  the 
system  could  alsc  monitor  a  different  arrangement  of 
antennas. 

The  system  can  also  function  as  a  voltmeter.  If  the 
signal  frem  the  antenna  control  box  is  sent  directly  to  the 
computer,  instead  of  through  the  radio,  the  voltage  of  any 
line  connected  to  one  of  the  relays  can  be  read  by  the 
analog  to  digital  converter.  The  system  would  then  become  a 
42  input  programmable  digital  voltmeter. 

Although  the  system  operates  properly,  several 
improvements  could  be  made.  Since  the  printer  is  a 
mechanical  device,  it  is  likely  that  this  is  the  part  of  the 
system  that  will  cause  the  most  trouble.  A  better  approach 
would  have  been  to  supply  the  computer  with  a  standard 
BS-232  computer  terminal  interface.  Any  commercial  terminal 
could  then  be  connected  to  the  system  and  used  for  the 
interface  to  the  user.  This  approach  would,  however,  be  more 
expensive  unless  a  terminal  was  already  available.  If  a 
video  terminal  was  connected  to  the  system  in  this  manner, 
many  other  features  could  be  easily  added.  A  grid  on  the 
video  screen  could,  fer  example,  display  the  current 
position  of  each  transmitter  by  placing  the  transmitter 
number  at  the  c err espending  grid  position  on  the  screen. 


I  if 

•  C 


88 


REFERENCES 


ALLEN ,  D.M.  Saturation  recording  is  not  that  hard.  Byte. 

Vol.  2  Nc.  1  p.  34,  1977. 

BIDER,  J.R.  Animal  activity  in  uncontrolled  terrestrial 

communities  as  determined  by  a  sand- transect  technique. 
Ecol.Mongr.  Vol.  38  p.  269,1968. 

CHUTE,  E.S.,  FULLER,  W.A.,  HARDING,  F.J. R. ,  HERMAN,  X.B. 

Radio  tracking  of  small  mammals  using  a  grid  of  overhead 
wire  antennas.  Can.  J.  Zool.  Vol.  52  p.  1481,  1974. 
GUZMAN,  D.  Marry  your  microprocessor  to  monolithic  A/D*s. 

Electronic  Design.  Vol.  25  No.  2  p.  82,  1977. 

HELMERS,  C.  A  software  controlled  1200  BPS  audio  tape 
interface.  Byte.  Vol.  2  No.  4  p.  40,  1977. 

JUSTICE,  K.E.  A  new  method  for  measuring  heme  ranges  of 
small  mammals..  J. Mammal.  Vol.  42  p.  462,  1961. 

KINZER,  D.  A  simple  cassette  interface.  IEEE  Circuits  and 
Systems.  Vol.  11  No.  1  p.  18,  1977. 

KOLZ,  A.L.,  CCENER,  C.W.,  TIETJEN,  H.P.  A  radio  frequency 
beacon  transmitter  for  snail  mammals.  J.  Wildl.  Manage. 
Vol.  36  p.  177,  1572. 

LEWIS,  T.G.,  DOEER,  J.W.  Minicomputers:  Structure  and 
Programming.  Hayden  Eook  Co.  1976,. 

MANLY,  W.A.  Magnetic  recording  for  computers.  The  Best  of 
Byte.  Vol.  1  p..  44,  1977- 

MAUCH,  H.A.  Eigital  data  on  cassette  recorders.  The  Eest  of 
Byte.  Vol.  1  p.  184,  1977. 


' 


89 


MILLER ,  L.S.  Tracing  vole  movement  by  radioactive  excretory 
products.  Ecology.  Vol.  38  p.  132,  1957. 

MOTOROLA  Application  Note  AN-711.  The  recovery  of  recorded 
digital  information  in  drum,  disk  and  tape  systems. 

PEUITT,  H  •  0.  ,  Jr.  A  method  of  live-trapping  small  taiga 
mammals  in  winter.  J. Mammal.  Vol.  40  p.  139,  1959. 

RAM  TIL,  I.  ,BEEIMEfi,  J.  The  Digital  Cassette  Subsystem.  Byte 
Vol.  2  No..  2  p.  24  and  Vol.  2  No.  3  p,  36,  1  577,. 

RAW SON ,  K.S. ,  HAETLINE,  P.H.  Telemetry  of  homing  behavior  by 
the  deermcuse,  Peromyscus.  Science  Vcl.  146  p.  1596, 
1964. 

SCHMID,  H. ,  MBOZOfcSKI,  G.  Mating  microprocessors  with 

converters.  Electronic  Design.  Vol.  23  No.  18  p.  76, 
1975. 

SUDING,  Dr.  Bcbert.  Why  wait?  Build  a  fast  cassette 
interface.  The  Best  of  Byte.  Vol,.  1  p.  190,  1977. 

VERMEULEN,  H.  Beverage  antennas  for  biotelemetry.  M.Sc. 

Thesis,  Department  of  Electrical  Engineering,  University 


of  Alberta. 


'S 

' 

-  --I 


90 


APPENDIX  A:  User's  Guide 

The  data  acquisition  system  scans  the  antennas  every  scan 
interval  and  checks  the  positions  of  any  transmi tter s 
located  within  the  grid.  A  maximum  number  of  five 
transmitters  may  be  used  at  any  time.  The  data  collected  can 
then  be  displayed  on  the  printer  and  stored  cn  the  cassette 
tape.  Data  are  stored  on  the  cassette  tape  to  facilitate 
processing  at  a  later  time. 

When  the  mode  switch  is  set  to  CCNTEOI,  the  keyboard 
becomes  active,  and  commands  can  be  entered  into  the 
computer.  Before  using  the  system,  it  is  necessary  to 
initialize  the  various  parameters  in  the  system,  such  as  the 
channels  that  are  being  used,  the  correct  time,  the  scanning 
interval,  and  various  other  options  which  may  be  chosen. 

When  the  computer  is  reset,  many  of  the  system  parameters 
are  set  to  a  default  value.  If  these  values  are  not 
suitable,  they  can  be  changed  by  issuing  appropriate 
keyboard  commands. 

Once  the  system  has  been  initialized,  the  mode  switch 
is  set  to  SCAN.  The  keyboard  no  longer  has  control  of  the 
system,  and  the  data  acquisition  procedure  is  started.  As 
data  are  collected,  they  are  stored  in  a  buffer  memory  until 
there  are  enough  data  to  be  output  to  the  cassette  tape. 

When  the  buffer  is  full,  the  cassette  drive  is  automatically 
turned  on,  and  the  data  are  dumped  onto  the  tape. 

Besides  the  position  of  each  transmitter,  the  activity 
state  is  also  recorded.  An  activity  state  of  1  indicates  a 
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transmitter  which  is  in  motion.  A  motionless  transmitter  has 
an  activity  state  of  0. 

A  test  antenna  is  also  checked  to  determine  the  level 
of  radio  interference  in  the  area.  If  the  level  on  the  test 
antenna  is  greater  than  a  selected  level,  a  flag  is  set  to 
indicate  that  the  data  may  be  in  error. 

The  printer  output  is  in  the  following  format: 

TTTTTT  CC  XXX  YYI 


or 


TTTTTT  CC  ABT 


wher 

e 

TTTTTT  is  the 

time  (hr, min. 

sec) 

CC 

is 

t  he 

channel 

number 

XXX 

is 

the 

position 

on  the  X  axis 

(a  ntenna 

XX.  X) 

YYY 

is 

the 

position 

on  the  Y  axis 

(antenna 

YY.  Y) 

A 

is 

the 

activity 

flag  with  a  0 

signifying  a  m 

transmitter,  and  a  1  indicating  a  transmitter  in  motion, 
B  is  a  flag  indicating  whether  the  transmitter  is  above  o] 
below  the  snow.  This  feature  is  not  yet  implemented. 

T  is  the  test  antenna  flag.  A  1  indicates  that  the  radio 
interference  is  above  the  predetermined  level. 

The  output  to  the  cassette  is  in  the  following  format: 

TTTTTT  CC  XXX  YYY  ABT 


There  are  three  rates  at  which  the  system  performs 
various  tasks.  The  scan  rate  is  the  rate  at  which  the  system 
scans  the  antennas  and  calculates  the  positions  of  all 
transmitters.  The  operation  of  the  printer  is  controlled  by 
the  print  interval.  Every  print  interval  the  data  for  all 
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active  transmitters  is  printed  out.  The  cassette  store  rate 
is  the  rate  at  which  data  can  be  sent  to  the  cassette 
buffer.  If  the  cassette  rate  is  set  lower  than  the  scan 
rate,  not  all  data  collected  are  necessarily  stored  on  the 
cassette  tape. 

The  cassette  system  checks  the  data  every  cassette 
store  interval.  If  the  position  cr  activity  state  for  a 
particular  transmitter  has  changed  in  the  last  cassette 
store  interval,  the  new  data  are  sent  to  the  cassette 
buffer. 

If  the  operator  chooses,  one  transmitter  may  be 
selected  as  the  master  transmitter.  If  any  cf  the  other 
transmi tt ers  come  within  a  specified  distance  of  this  master 
transmitter,  the  cassette  store  rate  is  increased  to  the 
scanning  rate.  When  the  cassette  store  rate  is  the  same  as 
the  scan  rate,  all  data  collected  are  stored  on  the  tape. 

The  cassette  store  rate  returns  to  its  previous  value  when 
the  transmitters  move  apart,  or  if  no  activity  is  detected 
cn  the  transmitter  which  is  within  range. 

Before  a  cassette  tape  can  be  removed,  an  end  of  file 
character  must  be  stored  on  the  tape  so  that  the  receiving 
system  knows  that  there  is  nc  more  data  to  be  read.  The 
procedure  for  closing  the  cassette  tape  file  varies 
depending  cn  whether  cr  not  you  wish  the  system  to  continue 
scanning. 

Detailed  procedures  for  controlling  the  various  parts 
of  the  system  are  now  given.  A  complete  description  of  each 
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command  is  given  in  the  section  "Keyboard  C demands" . 
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1.  lL*ti aiizatlCr 

a.  Fat  the  node  switch  o:  CC5IZCL  and  tart  or  the 
a ewe i.  Ire  sessace  ' S  T  S  T  Z  3  SZSZT*  steal d  trer  re 
printed. 

b-  If  tre  reset  sessage  is  rot  gritted,  degress  tre 
reset  switch.  Ire  ressage  will  tier  re  printed. 

c.  The  system  i s  tow  reset  atd  all  irterral  tarmters 
are  set  to  tee::  default  Talues.  Ire  system  is  row 
ir  ccrtrcl  acre  ready  to  aocegt  ieyfeard  ccn-r ds. 
Ire  ccrtrcl  rode  is  indicated  fy  a  rrcrrt  craracter 
( * )  at  the  start  of  tie  lire. 

d.  If  ary  of  tre  rare  listers  are  to  re  charred  fr:i 
their  default  Talues,  enter  tre  appropriate  ccuaiis 
via  the  keyboard.  (see  tre  secticr  "Ccrtrcl 

r  ara  zete  zs’-  j 

e.  The  system  is  tow  iritialized  atd  ready  tc  start 
eger  aticn. 

2.  Control  Parameters 

Hefcre  entering  tre  scar  rode,  seteral  garaieters 

must  he  iritialized. 

a.  use  the  ISI  c err anc  tc  set  the  real  trie  elect .  Ire 
real  ti  ie  elect  allo  ws  the  correct  tire  tc  re  ourg it 
tc  the  printer  ate  cassette  tape. 

hr,  Use  the  SAC  cctaand  tc  enter  the  charnels  which  are 
used.  If  a  raster  transmitter  is  tc  re  used,  it  is 
selected  ty  entering  it  first.  Ire  first  tries 
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channel  nuEbers  entered  are  the  cnes  fcr  which 
population  data  are  collected,  (see  the  section 
"Population  Matrix  Facility") 

Cm  If  the  cassette  rate  should  increase  when  a 

transmitter  gets  within  a  certain  range  of  the 
master  transmitter,  this  function  mst  be 
initialized  via  the  DIS  ccemand. 

d.  If  the  system  is  to  scan  at  a  different  rate  than 
the  default  value,  the  SCI  ccirand  is  used  to  set 
the  new  scan  interval. 

e.  If  the  printer  is  to  display  the  transmitter  data, 
it  aust  re  enabled  and  the  print  interval  set  via 
the  FBI  ccrsand.  The  POP  command  disables  the 
printer.  If  flags  are  to  be  printed  instead  of  the 
positions,  the  FLG  command  is  issued.  The  POS 
ccasand  returns  the  system  to  printing  the 

pcsi ticns. 

f.  If  the  multiplication  constant  is  to  be  changed,  see 
the  section  'Interpolation  Algorithm'.  The 

£ u It ipiicaticn  constant  is  used  to  interpolate 
between  antenna  readings. 

g.  If  the  activity  algorithm  is  to  be  altered,  the  PCI 
command  is  issued,  (see  the  section  'Activity 
Algorithm 1 ) 

h.  The  setpoint  for  the  test  antenna  can  be  changed 
from  its  defaclt  value  with  the  TA5  ccrsand. 

L.  The  cassette  interface  sust  also  be  initialized 
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before  the  system  is  operational,  (see  the  section 
"Cassette  Operation") 

j.  The  gain  control  must  be  set  to  obtain  optimum 
results,  (see  the  section  "Setting  the  Gain 
Cent rol") 

k.  Eefcre  entering  the  scan  mode,  use  the  DSP  command 
to  make  sure  that  all  parameters  have  been  set  as 
requested.  DSP  ALL  displays  all  parameters  which 
have  been  changed  from  their  default  values. 

l.  Set  the  mode  switch  to  SCAN  to  start  the  scanning 
procedure. 

Ad  example  of  setting  various  parameters  is  new 

given.  User  input  is  underlined. 

#TST  13: 4  5<SDace> 


#S  AC  05x07^14. 
#PE I  05 
# DSP  ALL 

TIME  IS  13:46: 17 
PRINTER  ENABLED 
PRINT  IN T. =  05 
ACTIVE  CHANNELS 
05,07,14 


# 

The  user  first  sets  the  clock  to  the  correct  time. 
The  channel  numbers  for  the  transmitters  to  be  used  are 
entered.  The  printer  is  then  enabled,  and  the  print 
interval  is  set  to  5.  Since  these  parameters  have  teen 
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changed  from  their  default  values,  they  are  displayed  by 
the  ESP  ALL  command,. 

3.  Setting  the  Gain  Control 

a.  Place  a  transmitter  at  the  corner  cf  the  grid 
closest  to  the  receiver. 

b.  Orient  the  transmitter  for  maximum  coupling  onto  one 
antenna  (X00  or  Y00) . 

c.  Use  the  CHN  command  to  set  the  receiver  to  the 
channel  corresponding  to  the  transmitter  used. 

d»  Use  the  ANT  command  to  switch  in  the  antenna  chosen 
in  step  b* 

e.  Switch  on  the  meter  and  adjust  the  gain  control 
until  the  meter  reads  approximately  8  to  10  volts. 

f.  Ee  sure  to  turn  off  the  meter  before  entering  the 
SCAN  mode. 

4.  Cassette  Operation 

Whenever  the  mode  switch  is  set  to  SCAN,  the  data 
collected  are  stored  in  a  buffer  memory  until  there  is 
enough  data  tc  ouput  to  the  tape.  The  cassette  drive  is 
then  started  and  the  contents  of  the  buffer  memory  are 
dumped  onto  the  tape.  If  the  experiment  to  be  run  is 
expected  to  use  more  than  one  side  of  a  cassette,  it  is 
suggested  that  enough  cassettes  be  initialized  before 
entering  the  scan  mode.  Having  these  cassettes  available 
makes  it  easier  tc  change  tapes  without  interrupting  the 
scanning  procedure. 
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a.  Cassette  Initialization 

1)  Before  starting  to  record  data  on  a  tape,  the 
tape  eust  te  rewound,  use  the  COS  ccssand  to 
power  to  the  cassette  drive. 

2}  The  tape  in  the  cassette  sust  row  be  roved  until 
the  entire  leader  is  acved  ontc  the  taka-up 
reel.  Use  the  PLAY  switch  to  scve  the  tape  until 
there  is  actual  recording  tape  or  the  reel. 

5)  Now  that  the  tape  is  ready,  use  the  CCF  cossand 
tc  turn  off  the  cassette  drive. 

4)  repress  the  PLAY  switch.  The  cassette  drive  is 
new  ready  to  receive  data. 

5)  If  a  nen  standard  tape  length  is  used,  use  the 
CT?  ccrsand  to  change  the  tape  length  fren  its 
default  value. 

6)  when  the  sede  switch  is  set  tc  SCAN,  the 
cassette  drive  is  operational. 

b.  Seaoving  Cassettes 

If  there  is  no  core  data  to  be  placed  on  the 

tape,  the  following  steps  should  be  followed  tc 

reaeve  the  cassette: 

1)  Hove  the  sode  switch  to  CONTBOI. 

2)  If  the  CASSETTE  ON  indicator  is  on,  wait  for  it 
tc  turn  off. 

3)  Use  the  STP  cossand  to  close  the  cassette  file. 

<*) 


Bait  for  the  CASSETTE  DONE  indicator  to  turn  on 
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5)  The  cassette  can  now  be  removed. 

c.  Changing  Cassettes  While  Scanning 

If  the  cassette  tape  becomes  full  of  data,  the 
alarm  is  sounded.  The  following  procedure  should  be 
followed  to  ensure  that  no  data  are  lost. 

1)  Depress  the  CASSETTE  RESET  switch. 

2)  Wait  for  the  CASSETTE  DONE  indicator  to  light 
up. 

3)  When  the  indicator  is  lit,  the  cassette  can  be 
removed  and  a  new  cassette  inserted.  The  new 
tape  must  be  inserted,  and  the  drive  returned  to 
the  play  mode,  before  the  CASSETTE  DONE 
indicator  turns  off. 

4)  The  new  tape  must  have  been  previously  rewound 
and  the  leader  moved  onto  the  take-up  reel,  (see 
section  "Cassette  Initialization") 

d.  Entering  Text  Onto  Tape 

Text  can  be  entered  onto  the  tape  via  the  CPR 
command.  After  the  CPR  command  is  entered,  the 
printer  responds  with  a  carriage  return  and  a  line 
feed.  Text  can  now  be  entered  frcm  the  keyboard. 

To  obtain  a  carriage  return  and  a  line  feed, 
type  <CR>  (CN1RL  M) .  In  order  to  make  a  correction 
type  <ES>  (CNTRL  H) ,  this  command  will  result  in  a 
backspace.  When  the  text  has  been  entered,  type 
<ETX>  (CNTR1  C)  to  return  to  the  monitor,. 

If  the  <DEL>  key  is  depressed  before  <ETX>  the 
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entire  text  is  erased. 

Since  this  command  enters  the  text  into  the 
buffer  memory,  the  text  is  net  entered  onto  the  tape 
until  the  next  tape  dump.  The  text  is  therefore  lost 
if  the  system  is  reset  (CASSETTE  RESET  or  master 
RESET)  before  the  next  tape  dump. 

The  command  PRT  acts  similiarily  to  CPR,  but  in 
the  case  of  PRT  the  text  is  entered  only  onto  the 
printer. 

5.  Population  Matrix  Facility 

The  population  matrix  routines  automatically  count 
the  number  of  times  a  transmitter  has  been  found  at  a 
particular  location.  Every  scan  interval,  the  counter 
corresponding  to  the  location  of  each  transmitter  is 
incremented  by  one.  The  only  channels  for  which  these 
data  are  collected  are  the  first  three  channels  entered 
via  the  SAC  command. 

a.  The  CLR  command  clears  the  entire  population  matrix,. 

b.  The  PPM  command  prints  the  population  matrix  for  a 
particular  transmitter. 

6.  Interpolation  Algorithm 

The  signal  level  from  each  antenna  is  stored  in 
memory  in  preparation  for  processing.  The  first  step  is 
to  scan  through  these  readings  to  find  the  maximum 
value.  Suppose  that  antenna  AA  has  the  largest  signal. 
This  signal  level  is  then  compared  to  the  neighbouring 
antennas  in  the  following  manner.  (AA)*25  is  compared  to 


. 
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(A A- 1) *MLC  and  (AA+1)*MLC.  If  either  cne  is  greater  than 
(AA)*25,  the  transmitter  is  said  to  he  between  the  two 
antennas.  MLC  is  a  constant  which  can  be  set  by  the 
operator.  For  example  if  (AA+1)*MLC  >  (AA)*25  then  the 
transmitter  is  said  to  be  at  AA.5.  The  constant  f51C  can 
be  changed  from  its  default  value  with  the  MLC  command. 
Activity  Algorithm 

Whenever  a  transmitter  does  not  change  locations 
between  scan  intervals,  the  system  tries  to  determine 
whether  cr  net  the  transmitter  is  moving.  The  system 
checks  for  motion  by  comparing  successive  signal  levels 
from  the  closest  antenna-  The  variable  PCT  contains  a 
percentage  value,  say  PP5S.  If  the  signal  on  the  antenna 
varies  by  mere  than  PP%  between  scan  intervals,  the 
transmitter  is  assumed  to  be  moving,  and  the  activity 
flag  is  set  to  one.  If  the  signal  level  varies  by  less 
than  PP%  for  a  period  of  five  consecutive  scan 
intervals,  the  transmitter  is  said  tc  be  motionless,  and 
the  activity  flag  is  set  to  zero. 

In  Case  cf  Failure 

If  the  system  fails  to  operate,  check  the  power 
supplies.  The  indicator  lights  are  located  near  the  main 
power  switch.  There  is  a  light  corresponding  to  each  of 
the  four  supplies.  If  all  four  lights  are  out  it  is 
likely  that  the  main  fuse  has  blown.  The  fuses  can  be 
located  behind  the  top  panel  on  the  front  of  the 
computer,  (the  fuses  to  be  used  are  6  Amp  fast  bio) 
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If  either  the  +15  or  +5  supplies  are  off,  try 
changing  the  appropriate  fuse. 

If  either  the  -15  or  -5  supplies  are  off,  or  if 
changing  the  fuses  as  suggested  above  dees  not  help,  the 
system  reguires  servicing. 
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KEYBOARD  COMMANDS 

Several  of  the  system  functions  operate  differently  on 
different  transmitter  numbers.  The  transmitter  number  is  set 
when  the  active  channels  are  set  via  the  SAC  command.  The 
first  channel  entered  corresponds  to  transmitter  one,  the 
second  to  transmitter  two,  etc.  The  master  transmitter  is 
defined  as  transmitter  one. 

System  Commands 

DIS  XX  cassette  rate  increase  distance 

where  XX=the  range  (in  antennas)  about  the  master 
transmitter 

Whenever  a  transmitter  comes  within  XX 
antennas  of  the  master  transmitter,  the  cassette 
store  interval  is  increased  to  the  scan  interval. 
The  cassette  store  rate  returns  to  its  previous 
value  when  the  transmitter  moves  cut  of  range,  of 
if  no  activity  is  detected  on  the  transmitter 
which  is  within  range. 

The  default  is  zero.  If  the  distance  is  set  ' 
to  zero,  the  program  never  increases  the  cassette 
store  rate. 

DSP  AAA  display  programmable  parameters 

where  AAA=  the  three  character  code  for  the 
parameter  to  be  displayed 

The  parameters  which  can  be  displayed  are 
CEN,  CHN,  CSI,  CST,  CTP,  DIS,  FLG ,  MIC,  PCT,  POS, 
PR I ,  SAC,  SCI  and  TAN.  The  three  character  code 


- 
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ALI  results  in  the  printing  of  all  parameters 
which  have  teen  changed  from  their  default  values. 

For  example,  DSP  MLC  causes  the  printer  to 
print  the  current  value  of  the  multiplier 
constant- 

W^C  XX  set  multiplier  constant  for  interpolation 
where  XX=  multiplier  constant 

The  variable  used  in  the  interpolation 
algorithm  is  set  to  the  new  value.  For  a 
discussion  of  the  algorithm  refer  to  the  section 
“Interpolation  Algorithm". 

The  default  value  is  50- 

PCI  XX  set  percentage  for  activity  calculations 
where  XX=  percentage 

The  percentage  change  in  the  signal  levels, 
which  determines  whether  or  not  the  transmitter  is 
moving,  is  set  to  the  value  entered-  For  a 
complete  description  of  the  algorithm  used,  refer 
to  the  section  "Activity  Algorithm". 

The  default  is  20  (%) . 

SCI  XX  set  scan  interval 

where  XX=  time  in  seconds  between  scans 

This  routine  allows  the  user  to  set  the  time 
interval  between  successive  scans  of  the  antenna 
sy stem- 

The  default  setting  is  1  (second) . 


.  • 
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TAN 


Cassette 

CON 


COF 


CSI 


XX  test  antenna  setpoint 
where  XX=  setpoint 

Whenever  the  signal  level  on  the  test  antenna 
is  greater  than  the  setpoint,  the  test  antenna 
flag  is  set  to  1. 

The  default  is  20. 

Interface  Commands 

turn  cn  the  cassette  drive 

Power  to  the  cassette  deck  is  turned  cn. 

This  command  is  only  used  for  initializing 
the  cassette  tapes.  In  SCAN  mode  the  system 
automatically  turns  on  the  cassette  drive  when 
data  are  to  be  stored  on  the  tape, 
turn  off  the  cassette  drive 

Power  to  the  cassette  deck  is  turned  off. 

When  in  scan  mode  the  power  should  be  turned 
off  since  the  scan  routine  turns  on  the  power 
itself  when  it  is  sending  data  tc  the  tape.. 

XX  set  cassette  store  interval 
where  XX=  the  number  of  SCAN  intervals  between 
times  when  data  are  stored  on  tape 

For  example,  if  the  cassette  store  interval 
is  set  to  5,  and  the  scan  interval  is  2,  the  data 
are  stored  on  tape  every  10  seconds. 

The  default  is  1.  (every  scan  interval) 


\ 

\ 
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CTP  XX  set  tape  length 

where  XX=  time  in  minutes  of  one  side  of  the 
cassette  tape 

The  system  must  know  what  size  of  tape  is 
heing  used  so  that  the  alarm  can  te  sounded  when 
the  tape  becomes  full. 

The  default  is  30.  (C60  cassette) 

CPE  put  text  onto  tape 

This  routine  allows  text  to  be  entered 
directly  onto  the  cassette  tape. 

The  computer  first  generates  a  carriage 
return  and  a  line  feed.  Text  can  then  be  entered 
directly  frcm  the  keyboard. 

<CB>  (CTEL  M)  generates  a  carriage  return  and  line 
feed. 


<BS>  (CTEL  E)  generates  a  backspace. 

<ETX>  (CTEL  C)  returns  control  to  the  monitor. 
<DEL>  erases  all  text  and  returns  ccntrcl  to  the 
monitor. 

STP  close  cassette  tape  file 

The  cassette  drive  turns  on  and  the  end  of 
file  character  is  loaded  onto  the  tape.  When 
finished,  the  cassette  drive  turns  off  and  the 
CASSETTE  DONE  indicator  turns  on.  The  CASSETTE 
DONE  indicator  stays  on  until  the  next  time  the 
cassette  drive  is  used. 


i. 
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Printer  CcDtrcl  Commands 

PLG  print  flags  instead  of  positions 

The  printer  prints  the  flags  instead  of  the 
transmitter  positions. 

The  default  is  to  print  the  locations. 

POF  disable  the  printer 

Nc  data  are  output  to  printer. 

Upon  reset  the  printer  is  disabled. 

POS  print  positions  instead  of  flags 

The  printer  prints  the  transritter  locations 
instead  of  the  flags. 

This  is  the  default  condition. 

PEI  XX  set  printer  interval 

where  XX=  print  interval  (no.  of  cassette  save 
intervals) 

This  routine  enables  the  printer,  and  sets 
the  print  interval.  The  print  interval  gives  the 
number  of  cassette  save  intervals  between 
successive  printings. 

e. g.  If  the  scan  interval  is  2  and  the  cassette 
save  interval  is  3,  and  the  command  PEI  04  is 
entered,  the  transmitter  data  are  printed  every 
24  (2*3*4)  seconds. 

Upon  reset  the  printer  is  disabled. 

PET  put  text  onto  printer 

This  routine  allows  text  to  be  entered 
directly  onto  the  printer. 


8  j.  %  >* 
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The  computer  first  generates  a  carriage 
return  and  a  line  feed.  Text  can  then  he  entered 
directly  frcm  the  keyboard.. 

<CR>  (CTRL  M)  generates  a  carriage  return  and  line 
feed. 

<BS>  (CTRL  B)  generates  a  backspace. 

<ETX>  (CTRL  C)  returns  control  to  the  monitor. 
Population  Matrix  Commands 

CLR  clear  population  matrix 

All  values  in  the  population  matrix  are  set 
to  zero. 

PPM  XX  print  population  matrix 

where  XX=  the  transmitter  number  (1  to  3) 

The  entire  population  matrix  for  transmitter 
XX  is  printed. 

Radio  Control  Commands 

SAC  AA, EE ,CC ,DD, EETFF  set  channels  to  be  used 

where  AA,BB,...=  channel  numbers  to  be  used 

This  routine  sets  the  channels  to  be  used  by 
the  scan  routine.  The  channels  are  scanned  in  the 
order  entered. 

If  there  are  less  than  five  channels  to  be 
used,  enter  a  period  (. )  in  place  of  the  comma  (,) 
after  the  last  channel  entered. 

For  example,  SAC  01,05,27.  results  in  the 
system  checking  for  signals  on  channels  1,  5,  and 


27, 


t 


c, 
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Gain  Control  Commands 

ANT  AZZ  select  antenna 
where  A=  X  or  Y 
ZZ=  antenna  number  (00  to  22) 

The  computer  first  selects  the  appropriate 
relay,  and  then  reads  the  signal  level.  The 
response  is: 

ANT  AZZ =X,X  VOLTS 

The  value  printed  should  be  approximately 
half  that  of  the  meter  reading. 

CHN  XX  set  radio  channel 

where  XX=  channel  number 

The  radio  is  set  to  channel  XX. 

Beal  Time  Cicck  Commands 

TST  XXl  Y  Y  set  real  time  clock 
where  XX=  time  in  hours 
YY=  time  in  minutes 

The  clock  starts  when  the  space  bar  is  hit. 
TIM  display  time 

The  time  is  printed. 

Maintenance  Commands 

ALM  turn  cn  the  cassette  alarm 

The  alarm  can  be  turned  off  with  the  cassette 
reset  switch. 

CEN  XXXX  set  end  of  cassette  buffer  memory 

where  XXXX=  ending  memory  address  (hex) 

This  routine  is  used  along  with  CST  to  set 


-V 


\ 

\ 
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the  region  of  memory  used  for  the  cassette  buffer. 
The  default  is  3PFF. 

CST  XXXX  set  start  of  cassette  buffer  memory 

where  XXXX=  starting  memory  address  (hex) 

This  routine  is  used  along  with  CEN  to  set 
the  region  of  memory  used  for  the  cassette  buffer. 
The  default  is  3000. 

CIN  initialize  cassette  tape  system 

The  cassette  buffer  is  emptied  and  the  timer 
for  the  alarm  is  set  for  the  selected  tape  length. 
PPM  XXXX  Y  Y  Y  Y  display  memory 

where  XXXX=  starting  memory  address  (hex) 

YYYY=  ending  memory  address  (hex) 

The  addresses  and  data  are  both  printed  in 
hexadecimal. 

INP  XX  read  input  port 

where  XX=  port  number  (hex) 

The  data  from  the  port  are  printed  in 
hexadecimal. 

OUT  XX  ZZ  output  data  to  port 

where  XX=  output  port  number  (hex) 

ZZ=  data  byte  (hex) 

The  data  (ZZ)  are  output  to  the  specified 

port. 

BUN  XXXXi  run  program 

where  XXXX=  address  where  excecuticn  is  to  begin 


(hex) 


r 


J59 


. 
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Program  excecution  starts  at  address  XXXX. 

STM  XXXX  set  memory  locations 

where  XXXX=  starting  memory  address  (hex) 

Computer  responds  with: 

XXXX 

The  data  byte  (hex)  is  then  inserted  and  the 
ccmfuter  responds  with  the  next  sequential  memory 
address: 

XXX  Y 

Another  data  byte  can  then  be  entered,  or  a  period 
(.)  to  exit  STM  and  return  to  the  monitor. 
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APPENDIX  B:  Circuit  Diagrams 
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Belay  Control  Card 
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fig.  13 


Central  Processor  Card 
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Program  Memory  Card 


Fig-  14 


DATA  BUS  BUfTCT  ENABLE 
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Fig-  15 


Read/Write  Memory  Card 


DATA  BUS  BUFFERS 
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Fig,. 
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Keyboard/Printer  Ccotrcl  Card 
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Fig- 
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Cassette  Interface  Card 


DATA  BUS  BUFFERS  f  ADDRESS  LATCH  j  A/D  INPUT  PORT  ^  A/D  CONVERTER 


Fig-  18 


Antenna/Kadio  Control  Card 


ANTENNA  SELECT  PORT 
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Rs 


+5  Volt  5Amp  +15  Volt  5  Amp 


R  LM  309 

B  IR250MB2  -773 

Rs 

R  LM  340- 15V 
.25||.25  I00WB  IR250MB2-773 

Rs 

.5  25W 

SCR 

ECC  S2035 

rb 

IK 

SCR 

ECC  S2035 

rb 

IK 

D 

1N400I 

R , 

.2SI  50W 

D 

IN  4001 

Ri 

.in  5W 

Q 

2N6287 

r2 

5n  I3W 

Q 

2 N 6050 

r2 

2X1  13W  . 

Cf 

2  x  120,000  pf 

r3 

33  n 

Cf 

40,000  pf 

R  3 

22^ 

c. 

10  pf 

r4 

1.8  K 

c, 

10  pf 

r4 

5.6  K 

c2 

0.1  pf 

Rs 

IK 

c2 

0.1  pf 

Rs 

IK 

c3 

100  pf 

Rs 

loon 

C3 

100  pf 

Rs 

820n 

c4 

0.1  pf 

Rl 

.25^1  50W 

C4 

0.1  pf 

Rl 

l.5n  25 W 

D 

-5V  lAmp 

IN400I 

R 

LM320-5V 

D 

-I5V  lAmp 

IN400I 

R 

LM320-15V 

c, 

13,000  pf 

c3 

4.7  pf 

c, 

4,700  pf 

c3 

4.7  pf 

c2 

0.1  pf 

C4 

0.1  pf 

C2 

0.1  pf 

C4 

0.1  pf 

Fig.  19 


Power  Supplies 
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0001 

0002 

0003 

0004 

0007 

0008 

0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0  00A 

0010 

0011 

0012 

0013 

0014 

0015 

2000 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

200F 

2010 

2011 

2012 

2014 

2016 

2017 

20 1C 

20  ID 

20  IF 

2021 

2023 

2025 

2027 

2028 
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APPENDIX  C:  Frogran  Listing 


;  SWITCH 

NUMBERS 

EOT 

EQU 

01H 

SETS  W 

EQU 

02H 

AL  ABM 

EQU 

03H 

EOC 

EQU 

04H 

TTSI 

EQU 

07H 

TEST 

EQU 

08H 

; I/O  POETS 

MODIA 

EQU 

00H 

TIMA2 

EQU 

0 1 H 

TIMA  1 

EQU 

02H 

TIM  AO 

EQU 

03H 

STPER 

EQU 

04H 

ASCII 

EQU 

05H 

SWCH 

EQU 

06H 

KEY 

EQU 

07H 

CASET 

EQU 

08H 

C8251 

EQU 

09H 

CPOBI 

EQU 

OAH 

ANTA 

EQU 

1  OH 

POET 

EQU 

1 1H 

STCON 

EQU 

12H 

ACCIN 

EQU 

13H 

CHANL 

EQU 

14H 

FILTB 

EQU 

15H 

;  E AM  LOCATIONS 

OEG 

2000H 

CHE  1 : 

DS 

1 

CHR2 : 

DS 

1 

CHE  3 : 

DS 

1 

CHE4 : 

DS 

1 

CHR5: 

DS 

1 

CHE6 : 

DS 

1 

CHE7 : 

DS 

1 

CHR8: 

DS 

1 

CHE9  : 

DS 

1 

CHE  10: 

DS 

6 

CHE  16; 

DS 

1 

CHE  17: 

DS 

1 

CHE  18: 

DS 

1 

POINT: 

DS 

2 

PEPOS: 

DS 

2 

SCAN: 

DS 

1 

SECO: 

DS 

5 

HR  1 : 

DS 

1 

CSTET: 

DS 

2 

CENT: 

DS 

2 

ND  AT: 

DS 

2 

OUTE: 

DS 

2 

BUFEE: 

DS 

2 

CCNT: 

DS 

1 

CEDI: 

DS 

1 

r 


Vi 


2029 

202.fi 

2  02C 

2  02D 

2  02F 

2030 

2031 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2  03  A 

2  03B 

210D 

2112 

2113 

2114 

2116 

2118 

2119 

2  1 1 A 

2  1 1B 

2  1 1 C 

21  ID 

2  1 1 E 

2123 

2  128 

2  1 2D 

212F 

2131 

2133 

2135 

2137 

2139 

213E 

2  13D 

213F 

215D 

2162 

2169 

216C 

2170 

2174 

2178 

2  17F 

2182 

2186 

218A 

2  18E 

2195 

2198 
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CFIN: 

DS 

1 

01 END: 

DS 

2 

CASON: 

DS 

1 

CASCT: 

DS 

2 

1PLEN : 

DS 

1 

ALRM: 

DS 

1 

csci: 

DS 

2 

EFILE: 

DS 

1 

CNL : 

DS 

1 

CHNL: 

DS 

1 

CHN  1 : 

DS 

1 

CHN  2: 

DS 

1 

CHN3: 

DS 

1 

CHN4: 

DS 

1 

CHN5: 

DS 

1 

1AB1E : 

DS 

2 1 0D 

1ST  AN : 

DS 

5 

1ANCP : 

DS 

1 

ANTNO : 

DS 

1 

LOG: 

DS 

2 

PBB : 

DS 

2 

FOFF : 

DS 

1 

PBCNT: 

DS 

1 

ACLOC: 

DS 

1 

CNUM: 

DS 

1 

DIS1C: 

DS 

1 

ACPC1: 

DS 

1 

ACFL1: 

DS 

5 

ACFI2 : 

DS 

5 

ACCN1: 

DS 

5 

ACPNT: 

DS 

2 

I  111: 

DS 

2 

I1T2: 

DS 

2 

1 1T3: 

DS 

2 

I1T4: 

DS 

2 

1 1T5: 

DS 

2 

12211: 

DS 

2 

12212: 

DS 

2 

12213: 

DS 

2 

PRX 1 : 

DS 

30 

PBFL1: 

DS 

5 

1M1 : 

DS 

7 

CHI : 

DS 

3 

lcx  1: 

DS 

4 

ICY1: 

DS 

4 

FLG  1 : 

DS 

4 

1M2: 

DS 

7 

CH2: 

DS 

3 

1CX2: 

DS 

4 

LCY2: 

DS 

4 

FLG2: 

DS 

4 

1M3: 

DS 

7 

CH3 : 

DS 

3 

LCX3: 

DS 

4 

1 
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219C 

LCY3: 

DS 

4 

2  1  AO 

FLG3: 

DS 

4 

21A4 

IM4: 

DS 

7 

2  1 AE 

CH4: 

DS 

3 

2  1  AE 

LCX4: 

DS 

4 

21E2 

LCY4: 

DS 

4 

21E6 

FLG4 : 

DS 

4 

2  1EA 

TM5: 

DS 

7 

2  1 C  1 

CH5 : 

DS 

3 

21C4 

LCX5: 

DS 

4 

21C8 

1CY5: 

DS 

4 

2  ICC 

FLG  5: 

DS 

4 

2  IDO 

PRBF : 

DS 

95 

2221 

PROP: 

DS 

1 

2230 

PACT: 

DS 

1 

2  231 

PIN! : 

DS 

1 

2232 

PINT  1 

DS 

1 

2233 

SC  AN  1 

DS 

1 

2234 

SCAN2 

DS 

1 

2235 

CASIP 

DS 

1 

2236 

CASH 

DS 

1 

2237 

CASI2 

DS 

1 

2  23  8 

APREV 

DS 

1 

2239 

ALAST 

DS 

1 

223  A 

APRES 

DS 

1 

223B 

AN  EXT 

DS 

1 

2  23C 

MAXNO 

DS 

1 

223D 

NEARY 

DS 

1 

223E 

NEARX 

DS 

1 

223F 

CMULT 

DS 

1 

2240 

AX: 

DS 

1 

2241 

AY: 

DS 

1 

2242 

EX: 

DS 

1 

2243 

EY: 

DS 

1 

2  5A0 

ORG 

25A0H 

25A0 

POPM: 

DS 

2646 

;  CONSTANTS 

0008 

EAKSP 

EQU 

08H 

0  OOD 

CRET 

EQU 

ODH 

0  07E 

DELEI 

EQU 

7FH 

0003 

ETX 

EQU 

03H 

001C 

EOE 

EQU 

1CH 

\  J 


/  .  1 1  /  f .  * 
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*  * 

*  MACRO  TO  READ  SWITCH  INPUTS  * 

*  * 


*  THE  PARAMETER  LIST  GIVES  THE  ACTUAL  SWITCH* 

*NAME  TO  BE  READ.  * 

*  THE  RESULT  OF  THE  MACRO  IS  THE  SETTING  OF  * 

*THE  CARRY  BIT  IE  THE  SWITCH  IS  ON.  * 

*  * 


1 

READ  MACRO  NAME 

1 

PUSH 

D  ; S AVE  EE  REGISTERS 

1 

M  VI 

D,  NAME  ;  STORE  SWITCH  NUMBER  IN  D 

1 

IN 

SWCH  ; R EAD  THE  SWITCH  INPUTS 

1 

NO:  EAR 

; ROT AT E  DO  INTO  CARRY 

1 

DCR 

D  ; DECREMENT  COUNTER 

1 

JNZ 

NO  ;  NOT  CORRECT  SWITCH  YET 

1 

POP 

D  ;  RESTORE  EE  REGISTERS 

ENDM 

.  *  ********* 

************************************ 

;* 

# 

;* 

INITIALIZATION  * 

;* 

* 

.  *  *  *  *  *  *  *  *  *  * 

************************************ 

0000 

ORG 

0000H 

0000 

C34000 

JMP 

CONT 

;  FORWARDING  ADDRESSES  FOR  RST  6.5 

0003 

C38609 

JMP 

AD2 1 

0006 

C3E90C 

JMP 

PTINT 

0009 

C38D09 

JMP 

INDE 

OOOC 

C3AE1 1 

JMP 

CRLF1 

000F 

C3B71 1 

JMP 

NLINE 

0012 

C34508 

JMP 

MULT8 

0015 

C37608 

JMP 

HXDEC 

0018 

C3640  £ 

JMP 

DECHX 

0  0 1 B 

C39D08 

JMP 

CONHX 

0  0  IE 

C3BC0  £ 

JMP 

CONAS 

0021 

C3BC1 1 

JMP 

LEOF 

0024 

C39709 

JMP 

AD882 

;  INTERRUPT  VECTOR  FOR  RST  5.5  (PRINTER  TIMER) 

0  02C 

ORG 

2CH 

0  0  2C 

C3E90C 

JMP 

PTINT 

;  INTERR,. 

VECTOR  FOR  RST  6.5  (REAL  TIME  CLOCK) 

0034 

ORG 

34H 

0034 

C30018 

JMP 

1800H 

;  INTERR. 

VECTOR  FOR  RST  7.5  (CASS.  INTERFACE) 

0  03C 

ORG 

003CH 

0  03C 

C36910 

JMP 

COUT 

0040 

ORG 

004  OH 

0040 

319F25 

CONT:  LXI 

SP r 259FH  ; SET  STACK  POINTER 

0043 

A  P 

XRA 

A  ; CLEAR  ACCUMULATOR 

0044 

D3  0A 

OUT 

CPORT  ;TURN  OFR  CASSETTE 

;  PRINTER 

INITIALIZATION 

0046 

D305 

OUT 

ASCII  ; T URN  OFF  CHAR  GENERATOR 

’ 

/ 


. 
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0048 

21B409 

LXI 

H,  STEP 

0  04B 

221420 

SHLD 

PRPOS  ;  I NITI ALI ZE  PRPOS 

004E 

CDOOOA 

CALL 

HOME  ;  I NITI ALIZE  PRINTHEAD 

0051 

CDB70A 

CALL 

CLPSK  ; CLEAR  THE  PRINT  STACK 

• 

» 

DISABLE 

SCAN  FLAG 

0054 

AF 

XRA 

A  ; CLEAR  ACCUMULATOR 

0055 

321620 

STA 

SCAN  .‘DISABLE  SCAN  FLAG 

• 

• 

RES 

ET  REAL  TIME  CLOCK 

0058 

211720 

LXI 

H ,  SECO 

0C5E 

0606 

M  VI 

B,  06 

005E 

AF 

XRA 

A  ;CLE AR  ACCUMULATOR 

005E 

77 

CLEAR: 

MOV 

M ,  A 

005F 

23 

I  NX 

H 

0060 

05 

DCR 

B 

0061 

C25E00 

JNZ 

CLEAR  ; NOT  ALL  CLEARED 

• 

• 

INITIALIZE  UART  (8251) 

0064 

3E79 

M  VI 

A,  79H 

0066 

D309 

OUT 

C8251  ; SET  MODE  WORD 

0068 

3E10 

M  VI 

A,  1 0H 

0  06A 

D309 

OUT 

C8251  ; SET  COMMAND  WORD 

• 

9 

SET 

SCAN 

INTERVAL 

0  06C 

3E0  1 

M  VI 

A,  1 

0  06E 

323322 

STA 

SCAN  1 

0071 

323422 

STA 

SCAN2  ; SET  SCAN  INTERVAL 

• 

• 

SET 

CASSETTE  STORE  INTERVAL 

0074 

3E01 

M  VI 

A,  1 

0076 

323522 

STA 

CASIP 

0079 

323622 

STA 

CASH 

007C 

323722 

STA 

CASI2 

• 

t 

SET 

MULTIPLIER  CONSTANT 

007F 

3E32 

M  VI 

A,  50 

0081 

323F22 

STA 

CMULT 

• 

9 

SET 

CCMPARATOR  VALUE  FOR  TEST  ANTENNA 

0084 

3E1  4 

M  VI 

A,  20 

0086 

321221 

STA 

TANCP 

• 

9 

SET- 

PERCENTAGE  FOR  ACTIVITY  CALCULATIONS 

0089 

3E14 

M  VI 

A,  20 

0  08E 

321D21 

STA 

ACPCT 

• 

9 

SET 

VALUE  FOR  SCAN  RATE  INCREASE 

0  08E 

AF 

XRA 

A 

0  08F 

321C21 

STA 

DISTC 

9 

SET 

NUMBER  OF  CHANNELS 

0092 

321B21 

STA 

CNUM 

• 

9 

SET 

ACTIVITY  ELAGS 

0095 

3E31 

M  VI 

A,  3 1 H 

0097 

327421 

STA 

FLG 1 

0  09  A 

328A21 

STA 

FLG2 

009D 

32 AO  2 1 

STA 

FLG3 

00A0 

32B621 

STA 

FLG  4 

0  0  A3 

32CC21 

STA 

FLG5 

• 

• 

CLEAR  POPULATION  MATRIX 

0  OA  6 

CD7A0F 

CALL 

SCLR 

• 

9 

SET 

ACTIVITY  COUNTERS 

00A9 

212821 

LXI 

H  f  ACCNT 

’ 

r 


0  0  AC 

0605 

M  VI 

B  , 

5 

OOAE 

3E05 

M  VI 

A, 

5 

00B0 

77  SAC5:  MOV 

M, 

A 

0  OE  1 

23 

I  NX 

H 

00E2 

05 

DCR 

B 

00E3 

C2B000 

JNZ 

SAC5 

• 

• 

SET  DEFAULT 

VALUES 

0  0B6 

210030 

LXI 

H, 

3000H 

0CB9 

222520 

SHLD 

BUFER 

OOEC 

221D20 

SHLD 

CSTRT 

0  OB  F 

21FF3F 

LXI 

H, 

3FFFH 

0  0C2 

22  IF 20 

SHLD 

CEND 

• 

• 

NDA1=LINEC0UNT  *  2 

00C5 

212C00 

LXI 

H, 

44 

00C8 

222120 

SHLD 

NDAT 

OOCB 

219006 

LXI 

Hr 

1680D 

OOCE 

222D20 

SHLD 

CASCT 

0  OD  1 

223120 

SHLD 

CSCT 

00D4 

3E1E 

M  VI 

A, 

30D 

00D6 

322F20 

STA 

TPLEN 

00E9 

3EFF 

MVI 

A, 

OFFH 

OODE 

322820 

STA 

CRD  Y 

OODE 

AF 

XRA 

A 

0  ODF 

32  1 A  2  1 

STA 

ACLOC 

0  OE  2 

322C20 

STA 

CASON 

00E5 

323020 

STA 

ALRM 

00E8 

323320 

STA 

EFILE 

OOEB 

322920 

STA 

CFIN 

0  OEE 

323520 

STA 

CHNL 

0  0F1 

322122 

STA 

PROF 

00F4 

323022 

STA 

PACT 

0GF7 

21F30C 

LXI 

H, 

START 

OOFA 

221421 

SHLD 

LOC 

• 

9 

CLEAR  CHANNEL  NUMBERS 

0  OFD 

0605 

MVI 

B, 

05 

OOFF 

AF 

XRA 

A 

0100 

213620 

LXI 

H, 

CHN 1 

0  103 

77  CL 

:  MOV 

Mr 

A 

0104 

23 

INX 

H 

0  105 

05 

DCR 

B 

0106 

C20301 

JNZ 

CL 

• 

« 

PRINT  RESET 

MESSAGE 

0109 

CD260A 

CALL 

RETN 

0  IOC 

CD9D0A 

CALL 

PRIMM 

0  1 0F 

53595354 

DB 

•SYSTEM  RESET 

0  113 

454D2052 

0  117 

45534554 

0  1 1B 

00 

DB 

OOH 

one 

CDOOOA 

CALL 

HOME 

ENABLE  RST  6.5  FLIP  FLOP 
ENABLE  RST  7.5 
MASK  RST  5.5 


0  1 1 F  3ED9  MVI  A,  11011 001 B 

0121  30  DB  30H  ;SIM 


’ 

m  r. 


/ 


. )i 

\ ,  _  arol 


. 
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0122  FB 


El  ;  ENAELE  INTERRUPTS 

*  * 

*  MAIN  PROGRAM  * 

*  * 

IF  THE  MODE  SWITCH  IS  CN  CONTROL  THE  PROCESSOR 
JUMPS  TO  THE  KEYBOARD  ROUTINE  TO  ACCEPT 
COMMANDS.  IF  THE  MODE  SWITCH  IS  ON  SCAN  THE 
SCAN  FLAG  IS  SET.  THE  SCAN  FLAG  IS  USED  TO 
INDICATE  TO  THE  REAL  TIME  CLOCK  ROUTINE  THAT 
THE  ANTENNAS  SHOULD  BE  SCANNED  AETER  THE  CLOCK 
IS  INCREMENTED.  SUBROUTINES  MOVE  AND  MOVE  ARE 
USED  TO  MOVE  THE  PRINTHEAD  ONE  POSITION  TO  THE 


D 


;  LEFT 

OR  RIGHT 

RESPECTIVELY. 

0  123 

1 

+EEGIN 

:  READ 

SETS  W 

; READ  SWITCH  INPUTS 

0  123 

1 

D5  + 

PUSH 

D 

;  S A VE  DE  REGISTERS 

0  124 

1 

1602  + 

M  VI 

D, 

SETS  W 

; STORE  SWITCH  NUMEER  IN 

0  126 

1 

DE06  + 

IN 

SWCH 

; R E AD  THE  SWITCH  INPUTS 

0  128 

1 

IF  +NO: 

RAR 

; ROT ATE  DO  INTO  CARRY 

0  129 

1 

15  + 

DCR 

D 

; DECREMENT  COUNTER 

0  1 2  A 

1 

C22801  + 

JNZ 

NO 

;  N  OT  CORRECT  SWITCH  YET 

0  12D 

1 

D 1  + 

POP 

D 

; RESTORE  DE  REGISTERS 

012E 

D23901 

JNC 

KEYB 

; JUM P  TO  KEYBOARD  ROUTINE 

;  ENABLE  SCAN 

FLAG 

0131 

3EFF 

M  VI 

A, 

0FFH 

0133 

321620 

STA 

SCAN 

0136 

C32301 

JMP 

BEGIN 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


KEYBOARD  ROUTINE 

THIS  ROUTINE  WILL  ACCEPT  AND  STORE 
THREE  CONSECUTIVE  KEYBOARD  CHARACTERS. 

AETER  THE  THIRD  CHARACTER  A  JUMP  TC  THE 
CORRECT  ROUTINE  IS  EXCECUTED. 

REG  E  IS  USED  AS  THE  CHARACTER  COUNTER 
REG  C  IS  USED  AS  A  CHECK  COUNTER 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


****$**$>{£***#*  Jfr##:*:***#**:**#*****###  $*#*£*#**** 

CHKEY  WILL  INPUT  ONE  CHARACTER  FROM  THE 
KEYBOARD  AND  PRINT  THE  CHARACTER. 

THE  CHARACTERS  ARE  STORED  IN  THE  PRINT  STACK 
ERROR  IS  CALLED  WHENEVER  THE  KEYBOARD 
ROUTINE  DETECTS  AN  ENTRY  THAT  IS  NOT  A  VALID 
COMMAND.  THIS  ROUTINE  PRINTS  AN  ERROR  MESSAGE 
ON  THE  PRINTER. 

IF  CASSETTE  IS  JUST  STARTING,  WAIT  FOR 
DRIVE  TO  REACH  PROPER  SPEED. 


0139 

3A2820 

KEYB:  LDA 

CRDY 

;C HECK  FOR  CASSETTE  ON 

0  13C 

A7 

ANA 

A 

;  SET  FLAGS 

013D 

CA3901 

JZ 

KEYB 

; W AIT  FOR  CASSETTE 

;  CASSETTE 

IS  READY, 

CONTINUE  WITH  PROGRAM 

0140 

319F25 

LXI 

SP , 259FH 

; SET  STACK  POINTER 

. 


127 


;  COMPUTER 

IS 

IN  CONTROL  MODE,  THEREFORE 

;  DISABLE 

THE 

SCAN 

FLAG.  THE  REAL  TIME  CLOCK 

;  ROUTINE 

WILL  THEN 

NOT  SCAN  THE  ANTENNAS. 

0143 

AP 

XR  A 

A 

; CLEAR  ACCUMULATOR 

0144 

321620 

STA 

SCAN 

.-DISABLE  SCANNING 

;  IF  THE  PRINTER  IS 

PRINTING  DATA 

;  WAIT  FOR 

PRINTER 

TO  FINISH 

0147 

3A3022 

LDA 

PACT 

-.PRINTER  IS  ACTIVE 

014A 

A7 

ANA 

A 

;  SET  FLAGS 

0  14B 

C23901 

JNZ 

KEYB 

;  PRINTER  STILL  ACTIVE 

;  PRINTER 

IS 

NOT  PRINTING,  INITIALIZE 

;  THE  PRINTER 

FOR  ACCEPTING  COMMANDS. 

0  14E 

CDOOOA 

CALL 

HOME 

0151 

CD  26  0 A 

CALL 

RETN 

;INITI ALIZE  PRINT  POSITION 

0  154 

CD9D0A 

CALL 

PRIMM 

;PRINT  PROMPT  CHARACTER 

0157 

23 

DB 

•#• 

0158 

00 

DB 

00H 

;  THREE  CHARACTERS 

WILL  NOW  BE  RECEIVED  AND 

;  CHECKED 

TO 

SEE  IF 

THEY  CORRESPOND  TO  A 

;  VALID  COMMAND. 

0  159 

1 E03 

M  VI 

E, 

03D 

; LOAD  DIGIT  COUNTER 

015E 

CDC701 

BDMCR:  CALL 

CHKEY 

; RE AD  KEYBOARD 

0  15E 

ID 

DCR 

E 

; DECREMENT  CHAR.  COUNTER 

015F 

C25B01 

JNZ 

RDMOR 

;  RECEIVE  ANOTHER  CHARACTER 

;  THREE  CHARACTERS 

HAVE  BEEN  RECEIVED 

;  AND  STORED 

ON  THE 

PRINT  STACK  AT  LOCATIONS 

;  CHR2,  CHR3 , 

AND  CHR4 . 

;  KYTAB  IS 

A 

TABLE 

CONTAINING  THE  VALID 

;  COMMAND 

CODES. 

0162 

21E81 1 

LXI 

H, 

KYTAB 

; LOAD  HL  WITH  TABLE  LOC. 

0165 

0E32 

M  VI 

c. 

50D 

;  ALLOW  50  ENTRIES 

;  SEARCH  TABLE  FOR 

CORRECT  ROUTINE 

0167 

3A0120 

FIND  1  :  LDA 

CHR2 

;  GET  FIRST  CHARACTER 

0  16  A 

BE 

CMP 

£ 

;COMPARE  WITH  TABLE  ENTRY 

0  16B 

CA7A0  1 

JZ 

SET2 

; FIRST  CHAR.  IS  CORRECT 

0  16E 

23 

INX 

H 

0  16F 

23 

I  NX 

H 

0170 

23 

INX 

H 

0  171 

23 

INX 

H 

0  172 

23 

INX 

H 

; POI NT  HL  AT  NEXT  ENTRY 

0  173 

OD 

DCR 

C 

.-DECREMENT  CHECK  COUNTER 

0174 

C26701 

JNZ 

FIND  1 

; CHECK  NEXT  TABLE  ENTRY 

;  THE  CODE 

CANNOT  BE  FOUND  IN  THE  TABLE, 

;  ASSUME  THAT 

THERE 

HAS  BEEN  AN  ERROR. 

0177 

C39E09 

JMP 

ERROR 

; ERROR  EXIT 

;  FIRST  CHARACTER  IS  CORRECT,  CHECK  SECOND 

0  17A 

23 

SET2 :  INX 

H 

; POINT  HL  AT  SECOND  CHAR. 

0  17B 

OEOA 

M  VI 

c. 

1  OD 

;  ALLOW  10  TO  BE  CHECKED 

017D 

3A0220 

FIND2:  LDA 

CHR3 

; G ET  SECOND  CHARACTER 

0180 

BE 

CMP 

£ 

;CCMPARE  WITH  TABLE  ENTRY 

0181 

CA9001 

JZ 

TEST  1 

; SECON D  CHAR.  IS  CORRECT 

0  184 

23 

INX 

H 

0  185 

23 

INX 

H 

0  186 

23 

INX 

H 

V 


. 

. 
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0167 

23 

I  NX 

H 

0  168 

23 

I  NX 

H 

; PCI  NT  HL  AT  NEXT  ENTRY 

0189 

OD 

DCR 

C 

•.DECREMENT  CHECK  COUNTER 

018A 

C27D01 

JNZ 

FIND2 

; CHECK  NEXT  TABLE  ENTRY 

018C 

C39E09 

JMP 

ERROR 

;  ERROR  EXIT 

;  SECOND  CHARACTER  IS  VALID, 

;  CHECK  FIRST  CHARACTER  AGAIN.. 

0190 

2B 

TEST  1 : 

DCX 

H 

; POINT  HL  AT  FIRST  CHAR. 

0191 

3A0120 

LDA 

CHR2 

; GET  FIRST  CHARACTER 

0194 

BE 

CMP 

* 

;C CMPARE  WITH  TABLE  ENTRY 

0195 

C29E09 

JNZ 

ERROR 

; E RBOR  EXIT 

0196 

23 

INX 

H 

0  199 

23 

INX 

H 

; PCI  NT  HL  AT  THIRD  CHAR. 

019A 

OEOA 

M  VI 

C,  1 0D 

; A LLOW  10  TO  BE  CHECKED 

019C 

3A0320 

FIND3: 

LDA 

CHR4 

; GET  THIRD  CHARACTER 

0 1 9F 

BE 

CMP 

E 

jCCMPARE  WITH  TABLE  ENTRY 

0  1  AO 

CAAfOl 

JZ 

TEST2 

; THIRD  CHAR.  IS  CORRECT 

0  1  A3 

23 

INX 

H 

0  1A4 

23 

INX 

H  • 

0  1A5 

23 

INX 

H 

0  1A6 

23 

INX 

H 

0  1A7 

23 

INX 

H 

; POINT  HL  AT  NEXT  ENTRY 

0  1A8 

OD 

DCR 

C 

; DECREMENT  CHECK  COUNTER 

0  1  A  9 

C29C01 

JNZ 

FIND3 

;CHECK  NEXT  TABLE  ENTRY 

0  1  AC 

C39E09 

JMP 

ERROR 

;ERROR  EXIT 

;  THIRD  CHARACTER  IS 

VALID,  CHECK  SECOND  AGAIN 

0  1AF 

2B 

TEST2: 

DCX 

H 

; PCI  NT  HL  AT  SECOND  CHAR. 

01B0 

3A0220 

IDA 

CHR3 

;GET  SECOND  CHARACTER 

0  1E3 

BE 

CMP 

E 

;C OMPARE  WITH  TABLE  ENTRY 

0  1E4 

C29E09 

JNZ 

ERROR 

.•ERROR  EXIT 

;  THIRD  AND 

SECOND  CHARACTERS  ARE  VALID, 

;  RECHECK 

THE  FIRST 

CHARACTER. 

0  1E7 

2B 

DCX 

H 

.•POINT  HL  AT  FIRST  CHAR. 

01B8 

3A0120 

LDA 

CHR2 

; GET  FIRST  CHARACTER 

0  1  EE 

BE 

CMP 

E 

.•COMPARE  WITH  TABLE  ENTRY 

0  1BC 

C29E09 

JNZ 

ERROR 

; ERROR  EXIT 

;  A  VALID 

COMMAND  HAS  BEEN  RECEIVED. 

;  JUMP  TO 

APPROPRIATE  ROUTINE 

;  THE 

ADDRESS  OF  THE 

KEYBOARD  SERVICE  ROUTINE 

;  is 

STORED  IN  THE  TABLE  DIRECTLY  AFTER  THE 

;  CHARACTER  CODE.  (SEE  TABLE  KYTAB ) 

0  1BF 

23 

INX 

H 

0  ICO 

23 

INX 

H 

0  1C1 

23 

INX 

H 

; PCI NT  AT  HIGH  ORDER  ADD. 

01C2 

5E 

MOV 

E,  M 

; LOAD  HIGH  ORDER  ADDRESS 

0  1C3 

23 

INX 

H 

.‘POINT  AT  LOW  ORDER  ADD. 

01C4 

56 

MOV 

D,  M 

;LOAD  LOW  ORDER  ADDRESS 

01C5 

EB 

XCHG 

; LO AD  HL  WITH  ADDRESS 

01C6 

E9 

PCHL 

; GO  TO  CORRECT  SUBROUTINE 

f. 


- 
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*  * 

*  SUBROUTINE  TO  READ  THE  KEYBOARD  * 

*  * 

*  UPON  RECEIVING  A  STROBE  FROM  THE  * 

*  KEYBOARD,  THE  ASCII  DATA  IS  LOADED  INTO  * 

*  THE  PRINT  STACK  AND  PRINTED.  * 

*  THE  DATA  IS  ALSO  RETURNEE  IN  A.  * 

*  IF  THE  CHARACTER  IS  A  LOWER  CASE  LETTER  * 

*  IT  IS  CONVERTED  TO  UPPER  CASE.  * 

*  BECAUSE  OF  THE  ERROR  EXIT,  THIS  SUER.  * 

*  CAN  ONLY  BE  CALLED  BY  THE  MAIN  PROGRAM  * 

*  * 


THIS  ROUTINE  WILL  WAIT  2  SECONDS  FOR  A 
KEYEOARD  ENTRY.  IF  NO  ENTRY  IS  RECEIVED  BEFORE 
2  SECONDS,  THE  PRINTHEAD  IS  MOVED  TWO 
POSITIONS  TO  THE  RIGHT  SO  THE  LAST  CHARACTER 
PRINTED  CAN  BE  SEEN.  SINCE  TEE  TIMER  HAS  A 
MAXIMUM  DELAY  OF  1/4  SECOND,  8  DELAY  LCOPS  ARE 
COUNTED  FOR  THE  2  SECONDS.  REGISTER  B  CONTAINS 
A  FLAG  THAT  IS  SET  IF  THE  PRINTHEAD  HAS  BEEN 


;  MOVED 

TO  THE  RIGHT. 

01C7 

C5 

CHKEY : 

PUSH 

B 

; STORE  BC  REGISTERS 

0  1C8 

E5 

PUSH 

H 

; STORE  HL  REGISTERS 

0 1C  9 

0E08 

M  VI 

C,  08H 

; PUT  8  INTO  COUNTER 

0  1CB 

0600 

M  VI 

B,  00H 

; C L E A R  FLAG  REGISTER 

;  SET 

TIMER 

FOR  1/4 

SECOND 

0  1CD 

3E00 

LOAD: 

M  VI 

A,  00H 

0  1CF 

D304 

OUT 

ST  PER 

; CLEAR  FLIP  FLOP 

0  1D1 

3E40 

M  VI 

A,  40H 

0  1D3 

D304 

OUT 

STPER 

; ENA BLE  FLIP  FLOP 

01D5 

3E78 

M  VI 

A,  78H 

01D7 

D300 

OUT 

MODEA 

;  SET  COUNTER  MODE 

01D9 

3E24 

M  VI 

A,  24H 

0  1DB 

D302 

OUT 

TIMA  1 

; LOAD  LOW  CRDER  COUNT 

0  1 DD 

3EF4 

M  VI 

A,  0F4H 

0  IDF 

D302 

OUT 

TIMA  1 

; LOAD  HIGH  ORDER  CCUNT 

;  CHECK  FOR 

KEYBOARD 

STROBE 

0  1 E  1 

DB07 

CKSTB : 

IN 

KEY 

;  READ  KEYBOARD 

0  1E3 

17 

RAL 

; ROT  ATE  D7  INTO  CARRY 

01E4 

D22002 

JNC 

STACT 

; STROBE  IS  ACTIVE 

THERE  IS  NO 
MODE  SWITCH 


KEYBOARD 
STILL  ON 


STROEE,  IS 
CONTROL? 


THE 


1 

♦ 

READ 

SETSW 

; READ  SWITCH  INPUTS 

01E7 

1 

D5 

♦ 

PUSH 

D 

; S AVE  DE  REGISTERS 

0  1E8 

1 

1602 

♦ 

M  VI 

Dr 

SETSW 

; STOR E  SWITCH  NUMBER  IN 

0  IE  A 

1 

DB06 

+ 

IN 

SWCH 

; R EAD  THE  SWITCH  INPUTS 

0  1  EC 

1 

IF 

♦  NO: 

RAR 

; ROT AT E  DO  INTO  CARRY 

0  1ED 

1 

15 

+ 

DCR 

D 

; DECREMENT  COUNTER 

0  1EE 

1 

C2EC01  ♦ 

JNZ 

NO 

; NOT  CORRECT  SWITCH  YET 

0  IF  1 

1 

D  1 

♦ 

POP 

D 

; RESTORE  DE  REGISTERS 

01F2 

D2FE0 1 

JNC 

CONTI 

• 

t 

MODE  SWITCH 

IS  ON 

SCAN  THEREFORE  EXIT  THE 

’  ' 


»  i 


4 


\ 


■ 
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• 

f 

KEYBOARD 

ROUTINE 

0  1F5 

Cl 

POP 

E 

0  1F6 

33 

I  NX 

SP 

01F7 

33 

I  NX 

SP  ; RESTORE  THE  STACK 

01F8 

CD000A 

CALL 

HOME  ; LIN E  FEED 

0  1FB 

C32301 

JMP 

BEGIN 

EXIT  KEYBOARD  ROUTINE 

• 

t 

MODE  SWITCH  IS  ON  CONTROL. 

• 

9 

CHECK  IF 

THE  PRINTHEAD  HAS  EEEN  MOVED. 

0  1FE 

78 

CONTI:  MOV 

A  ,  E 

T  EST  FLAG 

0  IFF 

A7 

ANA 

A 

SET  FLAGS 

0200 

C2E101 

JNZ 

CKSTB 

.FLAG  IS  SET 

• 

• 

THE  PRINTHEAD  HAS  NOT  EEEN  MCVED. 

• 

• 

THEREFORE 

CHECK  THE  TIMER. 

1 

+ 

READ 

TEST 

CHECK  TEE  TIMER 

0203 

1  D5 

+ 

PUSH 

D 

SAVE  EE  REGISTERS 

0204 

1  1608 

+ 

M  VI 

D,  TEST 

STORE  SWITCH  NUMBER  IN  D 

0206 

1  EB  06 

-f 

IN 

SWCH 

READ  THE  SWITCH  INPUTS 

0208 

1  IF 

+  NO: 

R  AR 

ROTATE  £0  INTO  CARRY 

0209 

1  15 

-f 

DCR 

D 

DECREMENT  COUNTER 

0  20A 

1  C2C802  + 

JNZ 

NO 

NOT  CORRECT  SWITCH  YET 

020D 

1  D 1 

•f 

POP 

D 

RESTORE  EE  REGISTERS 

0201 

DAE  1 0 1 

JC 

CKSTB 

TIMER  NOT  DONE 

• 

• 

TIMER  IS 

DONE,  DECREMENT  COUNTER 

021 1 

OD 

DCR 

c 

DECREMENT  COUNTER 

0212 

C2CD01 

JNZ 

LOAD 

[TIMING  NOT  COMPLETE 

• 

9 

2  SECONDS 

IS  OVER, 

MOVE  THE  PRINTHEAD 

0215 

CDE809 

CALL 

MOVE 

[MOVE  PRINTHEAD  RIGHT 

0218 

CDE809 

CALL 

MO  VR 

[MOVE  PRINTHEAD  RIGHT 

• 

9 

SET  FLAG 

INDICATING  PRINTHEAD  HAS  MCVED. 

02 1 B 

06FF 

M  VI 

B,  OFFH 

[SET  FLAGS 

021  £ 

C3E101 

JMP 

CKSTB 

[WAIT  FOR  STROBE 

• 

9 

A  STROBE 

HAS  BEEN  RECEIVED  FROM  THE  KEYBOARD 

0220 

DB07 

STACT:  IN 

KEY  ; RE AD  KEYECARD 

0  222 

2F 

CMA 

[KEYB.  USES  NEG  LOGIC 

0223 

E67F 

ANI 

7FH 

[MASK  OFF  STROBE  INPUT 

0225 

FE7F 

CPI 

DELETE 

; IS  CHARACTER  A  DELETE 

0227 

C23002 

JNZ 

CONT2 

[NOT  A  DELETE 

• 

9 

CHARACTER 

IS  A  DELETE 

• 

• 

THEREFORE 

WAIT  FOR 

A  NEW  COMMAND. 

022A 

Cl 

POP 

B 

0  22B 

33 

I  NX 

SP 

0  22C 

33 

I  NX 

SP 

[RESTORE  THE  STACK 

0  22D 

C33901 

JMP 

KEYB 

[RECEIVE  COMMAND  AGAIN 

• 

• 

CHARACTER 

IS  NOT  A 

DELETE,  SEE  IF  IT 

• 

9 

IS  A  SMALL  LETTER. 

0230 

4F 

CON12:  MOV 

Cr  A 

[STORE  CHARACTER  IN  C 

0231 

E660 

ANI 

6  OH 

0233 

FE60 

CPI 

60H 

[IS  CHAR.  A  SMALL  LETTER 

0235 

C23C02 

JNZ 

CAPTL 

• 

9 

CHAR.  IS 

A  SMALL  LETTER,  CCNVERT  TO  CAPITAL 

0238 

79 

MOV 

A,  C 

0239 

E65F 

ANI 

5FH 

[CONVERT  TO  CAPITAL  LETTEE 

0  23E 

4F 

MOV 

C,  A 

[STORE  IN  C 

• 

t 

CHARACTER 

IS  A  CAPITAL  LETTER 

. 


r 
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• 

t 

CHECK  IF  PRINTHEAD 

HAS  BEEN  MOVED. 

0  23C 

78 

CAPTL :  MOV  A 

,  B 

; CH ECK  FLAG 

0  23D 

A7 

ANA 

A 

; SET  FLAGS 

0  23E 

CA4702 

JZ 

RESTR 

;EXIT 

• 

t 

PRINTHEAD 

MUST  BE 

RESET 

0241 

CDD009 

CALL 

MO  VL 

;  MOVE  PRINTHEAD  LEFT 

0244 

CDD009 

CALL 

MOVL 

;  MOVE  PRINTHEAD  LEFT 

• 

PRINTHEAD 

IS  READY 

TO  PRINT  THE  CHARACTER 

0247 

2A1220 

RESTR :  LHLD 

POINT 

; POINT  HI  AT  PRINT  STACK 

0  24 A 

71 

MOV  M 

,  c 

;  LOAD  CHAR  ON  PRINT  STACK 

024B 

CD320A 

CALL 

PRINT 

; PRINT  THE  CHARACTER 

• 

9 

CHARACTER 

HAS  BEEN 

PRINTED,  MAKE  SURF  THAT 

• 

9 

THE  KEYBOARD  STROBE  HAS  GONE  AWAY. 

024  E 

DB07 

WAIT:  IN 

KEY 

; R FAD  KEYBOARD 

0250 

17 

RAL 

0251 

D24E02 

JNC 

WAIT 

; K AIT  FOR  STROBE  TO  GO 

• 

9 

STROBE  HAS 

GONE  AWAY,  LOAD  CHARACTER  SC  THAT 

• 

9 

IT  CAN  BE 

READ  BY 

CALLING  PROGRAM. 

0254 

79 

MOV  A 

,  c 

;  PUT  DATA  INTO  A 

0255 

El 

POP 

H 

; RESTORE  HL  REGISTERS 

0256 

Cl 

POP 

B 

‘.RESTORE  EC  REGISTERS 

0257 

C9 

RET 

*  * 

*  ROUTINE  TO  DISPLAY  MEMOFY  LOCATIONS  * 

*  * 
#  jJ:  2$  £  jjc  j{c  jj 


0258  CDC701 
025B  FE20 
025D  C29E09 


0260  CD4E09 
0263  DA9E09 
0266  EB 

0267  CDC701 
026 A  FE20 
0 26C  CA7E02 


026F  FE2E 
0271  C29E09 


0274  EB 


; THIS  KEYBOARD  SERVICE  ROUTINE  KILL  A LICK  THE 
;  CONTENTS  OF  MEMORY  TO  BE  DISPLAYED.  SUBROUTINE 
; GTADD  IS  USED  TO  RECEIVE  TWO  HEXADECIMAL 
; ADDRESSES  FROM  THE  KEYEOARE.  THE  FIRST  IS  THE 
; STARTING  MEMORY  ADDRESS  ANE  THE  SECOND  IS  THE 
;  ENDING  MEMORY  ADDRESS. 

; THE  PROGRAM  READS  EACH  MEMORY  LOCATION  AND 
;  PRINTS  THE  CONTENT  OF  EACH  LOCATION. 

DPM :  CALL  CHKEY  ;RE AE  KEYEOARD 

CPI  1  1  ;IS  CHARACTER  A  SPACE 

JNZ  ERROR  ; NOT  A  SPACE 

;  A  SPACE  HAS  BEEN  RECEIVED  AFTER  THE  COMMAND. 
;  READ  STARTING  ADDRESS 

CALL  GTADD  ; GET  STARTING  ADDRESS 

JC  ERROR  JERROR  EXIT 

XCHG  ; EXCHANGE  HL  AND  DE 

;  KAII  FOR  ANOTHER  SPACE. 

CALL  CHKEY  ; RE  AE  KEYEOARD 
CPI  •  *  ;IS  CHARACTER  A  SPACE 

JZ  GTS PC  ;CHARACTER  IS  A  SPACE 

;  A  SPACE  HAS  NOT  BEEN  RECEIVED,  THEREFORE 
;  CHECK  FOR  A  PERIOD. 

CPI  ;IS  CHARACTER  A  PERIOD 

JNZ  ERROR  ; ERROR  EXIT 

;  A  PERIOD  HAS  BEEN  RECEIVED,  THEREFORE  ONLY 
;  PRINT  THE  STARTING  ADDRESS  DATA. 

XCHG  ; EXCHANGE  HL  AND  DE 


1 32 


0275 

IE  0 1 

M  VI 

E, 

01H 

0277 

1600 

M  VI 

D, 

00H 

; LOAD  1  INTO  DE 

0275 

CD000A 

CALL 

HOME 

; INITI ALIZE  PRINTER 

027C 

C39402 

JKP 

DPMPR 

; PRI NT  RESULTS 

• 

9 

RECEIVE 

ENDING  ADDRESS. 

0  27F 

CD4E0S 

G1SPC: 

CALL 

GTADD 

; GET  ENDING  ADDRESS 

0282 

DA9E09 

JC 

ERROR 

;  ERROR  EXIT 

0265 

D5 

PUSH 

D 

; STO RE  STARTING  ADDRESS 

• 

• 

SUETRACT 

STARTING 

ADDRESS  FRCM  ENDING  ADD. 

0286 

7A 

MOV 

A, 

D 

0287 

2F 

CMA 

0288 

57 

MOV 

D, 

A 

; COMPLEMENT  D 

0289 

7B 

MOV 

A  , 

E 

0  28  A 

2E 

CMA 

0  28B 

5E 

MOV 

E, 

A 

; COMPLEMENT  E 

028C 

13 

I  NX 

D 

028D 

13 

I  NX 

D 

.•INCREMENT  DE  THICE 

026E 

19 

DAD 

D 

;  ADD  DE  TO  HL 

0  28F 

EB 

XCHG 

.•EXCHANGE  DE  AND  HL 

0290 

El 

POP 

H 

; RESTO  RE  STARTING  ADDRESS 

0291 

CDOOOA 

CALL 

HOME 

; I NITI ALIZE  PRINTER 

• 

• 

DE 

CONTAINS 

THE  NUMBER  OF  ADDRESSES  TO  BE 

• 

9 

PRINTED. 

HL 

CONTAI 

NS  THE  STARTING  ADDRESS. 

0294 

CDB70A 

DPMPR  : 

CALL 

CLPSK 

; CLEAR  THE  PRINT  STACK 

0297 

CD2109 

CALL 

HLSTK 

; PUT  ADD.  IN  PRINT  STACK 

0  29  A 

3E20 

M  VI 

A, 

•  i 

029C 

320420 

STA 

CHR5 

; PUT  SPACE  IN  CHR5 

029  F 

7E 

MOV 

A, 

M 

; READ  DATA  AT  HL 

02A0 

E6P0 

ANI 

OFOH 

-.MASK  OFF  LOW  NIBBLE 

02A2 

Of 

RRC 

0  2  A3 

Of 

RRC 

0  2A4 

Of 

RRC 

02A5 

Of 

RRC 

'.MOVE  TO  LOW  NIBBLE 

02A6 

CDBC08 

CALL 

CONAS 

; CONVERT  TO  ASCII 

02A9 

DA9E09 

JC 

ERROR 

;ERROR  EXIT 

• 

9 

PUT 

MS  NIBBLE  INTO 

PRINT  STACK. 

0  2AC 

320520 

STA 

CHR6 

;  STORE  IN  CHR6 

02AF 

7E 

MOV 

A, 

M 

; RE AD  DATA  AT  HL 

02B0 

E60E 

ANI 

OFH 

; M ASK  OFF  HIGH  NIBBLE 

02B2 

CDBC08 

CALL 

CONAS 

;  CONVERT  TO  ASCII 

02B5 

DA9E09 

JC 

ERROR 

; ERROR  EXIT 

• 

9 

PUT 

LS  NIBBLE  INTO 

PRINT  STACK. 

02B8 

320620 

STA 

CHR7 

; STORE  IN  CHR7 

02EE 

CD860A 

CALL 

ESTAK 

; PRINT  ENTIRE  STACK 

• 

• 

POINT  HL 

AT 

NEXT  LOCATION  AND 

• 

9 

DECREMENT  COUNTER. 

0  2£E 

23 

INX 

H 

;INCREMENT  HL 

02EP 

IB 

DCX 

D 

; DECREMENT  COUNTER 

• 

9 

CHECK  THE  COUNTER 

0  2C0 

7B 

MOV 

A  t 

E 

;GET  E  REGISTER 

02C1 

A7 

ANA 

A 

;  SET  FLAGS 

02C2 

C  29402 

JNZ 

DPMPR 

; PRINT  ANOTHER  LOCATION 

02C5 

7A 

MOV 

A  # 

D 

;GET  D  REGISTER 

02C6 

A7 

ANA 

A 

; SET  FLAGS 

• 

■ 

. 


- 
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02C7  C29402 


02C A  C33901 


ALL 


JNZ  DFMPR  ;PRINT  ANOTHER  LOCATION 

LOCATIONS  HAVE  BEEN  PRINTED. 

JMP  KEYB 

*  * 

*  ROUTINE  TO  SET  MEMOFY  LOCATIONS  * 

♦  * 

THIS  KEYBOARD  SERVICE  ROUTINE  ALLOWS  THE  USER 
TO  SET  MEMORY  LOCATIONS.  SUBROUTINE  GTADD  IS 
USED  TO  RECEIVE,  FROM  THE  KEYBOARD,  THE  MEMORY 
ADDRESS  TO  BE  SET.  THE  ROUTINE  TEEN  ACCEPTS 
THE  DATA  FROM  THE  KEYBOARD  AND  LOADS  IT  INTO 


THE 


; THE  MEMORY 

LOCATION 

• 

0  2CD 

CDC701 

STM:  CALL 

CHKEY 

;  READ 

02D0 

FE20 

CPI 

«  i 

;IS  CH 

0  2D2 

C29E09 

JNZ 

ERROR 

.-ERROR 

02D5 

CD4E09 

CALL 

GTADD 

; RECEI 

02D8 

CD000A 

CALL 

HOME 

;  LINE 

02DB 

CD260A 

STMPR :  CALL 

RETN 

;  CARRI 

;  PRINT  THE 

ADDRESS 

TO  EE 

02DE 

CD2109 

CALL 

HLSTK 

;  LO  AD 

02E1 

CD320A 

CALL 

PRINT 

0  2E4 

CD320A 

CALL 

PRINT 

02E7 

CD320A 

CALL 

PRINT 

0  2E  A 

CD320A 

CALL 

PRINT 

; PRI NT 

;  ADDRESS  HAS  BEEN 

PRINTED 

0  2EI 

CDE809 

CALL 

MOVR 

; GENER 

KEYBOARD 
ARACTER  A  SPACE 
EXIT 

VE  ADDRESS 
FEED 

AGE  RETURN 
SET. 

ADDRESS  INTO  STACK 


ADDRESS 


E  A  SPACE 

WHEN  A  PERIOD  IS  RECEIVED  INSTEAD  OF  DATA, 
EXIT  FROM  THE  ROUTINE. 


02F0 
0  2f  3 
02E5 


02F8 
02FB 
0  2FE 
02FF 
0300 
0301 
0302 
0303 
0306 
0309 


CDC701 

FE2E 

CA3901 


CD9D08 

DA9E09 

07 

07 

07 

07 

47 

CDC701 

CD9D08 

DA9E09 


CALL 

CPI 

JZ 

SINCE  DATA 
IT  MUST  BE 
CALL 
JC 
RLC 
RLC 
RLC 
RLC 

MOV  B, 
CALL 
CALL 
JC 

A  CONTAINS 
E  CONTAINS 


CHKEY 

i  « 


; RE AD  KEYBOARD 
;IS  CHARACTER  A  PERIOD 
KEYB  ; ROUTINE  IS  FINISHED 
FROM  THE  KEYBOARD  IS  IN  ASCII 
CONVERTED  TO  HEX. 

CONHX  ; CON VERT  TO  HEX 
ERROR  ;ERROR  EXIT 


A 

CHKEY 
CONHX 
ERROR 
THE  LS 
THE  MS 


MOVE  INTO  HIGH  NIBBLE 
STORE  IN  REG  B 
READ  KEYBOARD 
CONVERT  TO  HEX 
ERROR  EXIT 
NIBBLE 

NIBBLE  OF  THE  DATA 


03  OC 

BO 

ORA 

B 

; OR  WITH  REG  B 

030D 

77 

MOV  M, 

A 

; LOAD  DATA 

030E 

23 

INX 

H 

;INCREMENT  HL 

030F 

CD000A 

CALL 

HOME 

; LI NE  FEED 

0312 

C3DB02 

JMP 

STMPR 

; PRINT  NEXT  ADDRESS 

*  , 

\  J  0 


, 
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*  * 

*  ROUTINE  TC  RUN  PROGRAM  * 

*  * 

THIS  KEYBOARD  SERVICE  ROUTINE  ALLOWS  THE  USER 
TO  INITIATE  PROGRAM  EXCECUTION  AT  ANY  DESIRED 
ADDRESS.  GTADD  IS  USED  TO  RECEIVE  THE  ADDRESS 
UPON  RECEIPT  OF  A  PERIOD,  THE  PROGRAM  WILL 
BEGIN  EXECUTION  FROM  THE  LOADED  ADDRESS. 


0315 

CDC701  RON:  CALL 

CHKEY 

; RE AD  KEYECARD 

0318 

FE20 

CPI 

i  i 

;IS  CHARACTER  A  SPACE 

0  3 1 A 

C29E09 

JNZ 

ERROR 

;  ERROR  EXIT 

0  3 1  D 

CD4E09 

CALL 

GTADD 

; GET  STARTING  ADDRESS 

;  ADDRESS  HAS 

BEEN  RECEIVED,  WAIT  FOR  A  PERIOD 

0320 

CDC701 

CALL 

CHKEY 

; READ  KEYEOARD 

0323 

FE2E 

CPI 

i  t 
• 

;IS  CHARACTER  A  PERIOD 

0325 

C29E09 

JNZ 

ERROR 

;ERROR  EXIT 

MOVE  PRINTER  TO  THE  HOME  POSITION, 

;  AND  RUN  THE 

PROGRAM. 

0328 

CD000A 

CALL 

HOME 

; GENER ATE  LINE  FEED 

0  32B 

E9 

PCHL 

;  RUN  AT  ADDRESS 

♦  ¥ 

*  ROUTINE  TO  READ  INPUT  PORT  * 

±  * 

THIS  KEYBOARD 

SERVICE  ROUTINE  ALLOWS  THE  USER 

TO  READ  AN  INPUT  POR 

T.  THE  PORT  ADDRESS  IS 

ENTERED  FIRST 

AND  THE  CONTENTS  ARE  THEN 

PRINTED- 

0  32C 

CDC701  INP:  CALL 

CHKEY 

; RE AD  KEYEOARD 

032F 

FE20 

CPI 

i  i 

;IS  CHARACTER  A  SPACE 

0331 

C29E09 

JNZ 

ERROR 

; ERROR  EXIT 

1 

RECEIVE  MS 

NIBBLE 

OF  PORT  ADDRESS 

0334 

CDC701 

CALL 

CHKEY 

; RE AD  KEYBOARD 

0337 

CD9D08 

CALL 

CONHX 

; CON VERT  TO  HEX 

0  33  A 

DA9E09 

JC 

ERROR 

.•ERROR  EXIT 

033  D 

07 

RLC 

0  33E 

07 

RLC 

033F 

07 

RLC 

0340 

07 

RLC 

; ROTATE  INTO  HIGH  NIBBLE 

0341 

47 

MOV  B, 

A 

; STORE  IN  REG  B 

;  RECEIVE  LS 

NIBBLE 

OF  PORT  ADDRESS 

0342 

CDC701 

CALL 

CHKEY 

; REA D  KEYBOARD 

0345 

CD9D08 

CALL 

CONHX 

.'CONVERT  TC  HEX 

0348 

DA9E09 

JC 

ERROR 

; E RROR  EXIT 

;  A  NOW  CONTAINS  THE 

LS  NIBELE  AND 

;  B  CONTAINS 

THE  MS 

NIBBLE  OF  THE  PORT  ADDRESS 

034B 

BO 

ORA 

B 

; LOAD  LOW  NIBBLE 

0  34C 

321020 

STA 

CHR17 

; STORE  AT  CHR17 

;  THE  INSTRUCTION  (IN  PORT)  IS  STORED 

;  IN  RAM  MEMORY  FOLLOWED  EY  A  RETURN 

034F 

3EDB 

M  VI  A, 

ODBH 

;LCAD  OPCODE 

*  ^ 


V 


\c 
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0351 

320F20 

ST  A 

CHR16 

; STORE  AT  CHR 1 6 

0354 

3EC9 

M  VI 

A,  0C9H 

;LCAD  RET 

0356 

321 120 

STA 

CHR18 

; STORE  AT  CHR 1 8 

• 

9 

THE  SUBROUTINE  IS 

NOW  CALLED 

0359 

CD0F20 

CALL 

CHR16 

; CALL  INPUT  ROUTINE 

A  NOW  CONTAINS  THE  POET  DATA  IN  HEXADECIMAL 
IT  MUST  NOW  BE  CONVERTED  TC  TWO 
ASCII  CHARACTERS  AND  PRINTED, 


035C 

47 

MOV 

B,  A  ;  STO  EE  INPUT  IN  REG  B 

035D 

E6F0 

ANI 

OFOH 

[MASK  OFF  LOW  NIBBLE 

035F 

OF 

RRC 

0360 

OF 

RRC 

0361 

OF 

RRC 

0362 

OF 

RRC 

: 

[ROTATE  INTO  LOW  NIEBLE 

• 

• 

MS  NIBBLE 

IS  NOW  CONVERTED  TO  ASCII 

0363 

CDBC08 

CALL 

CONAS 

CONVERT  TC  ASCII 

0366 

320820 

STA 

CHR9 

STORE  AT  CHR9 

0369 

3E3D 

M  VI 

A,  •  =  • 

LOAD  EQUAL  SIGN 

0  36B 

320720 

STA 

CHR8 

STORE  AT  CHR8 

0  36E 

CD320A 

CALL 

PRINT 

PRINT  = 

0371 

CD320A 

CALL 

PRINT 

PRINT  HIGH  NIBBLE 

• 

9 

EQUAL  SIGN  AND  MS  NIBBLE  HAVE  EEEN  PRINTED 

0374 

78 

MOV 

A,  E 

GET  DATA 

0375 

E6  OF 

ANI 

OFH 

MASK  OFF  HIGH  NIBELE 

0377 

CDBC08 

CALL 

CONAS 

CONVERT  TO  ASCII 

0  37  A 

320920 

STA 

CHR10 

STORE  AT  CHR 1 0 

037D 

CD320A 

CALL 

PRINT 

PRINT  LOW  NIBBLE 

• 

9 

DATA  HAS 

BEEN  PRINTED 

0380 

C33901 

JMP 

KEYB 

[RETURN  FROM  ROUTINE 

*  * 

*  ROUTINE  TO  OUTPUT  DATA  TO  PORT  * 

*  * 

THIS  KEYBOARD  SERVICE  ROUTINE  ALLOWS  THE  USER 
TO  OUTPUT  DATA  TO  A  POET. 


0383 

CDC701 

OUTP:  CALL 

CHKEY 

; R E A D  KEYBOARD 

0386 

FE20 

CPI 

i  i 

;IS  CHARACTER  A  SPACE 

0  38  8 

C29E09 

JNZ 

ERROR 

;ERROR  EXIT 

;  RECEIVE  MS 

NIBBLE 

CF  PORT  ADDRESS 

0  38  E 

CDC701 

CALL 

CHKEY 

; RE AD  KEYBOARD 

038E 

CD9D08 

CALL 

CONHX 

JCONVERT  TO  HEX 

0391 

DA9E09 

JC 

ERROR 

; E RROR  EXIT 

0394 

07 

RIC 

0395 

07 

RLC 

0396 

07 

RLC 

0397 

07 

RLC 

; RCT AT E  INTO  UPPER  NIBBLE 

0398 

47 

MOV  B 

A 

;  STORE  IN  REG  B 

;  RECEIVE  LS 

NIBBLE 

CF  PORT  ADDRESS 

0399 

CDC701 

CALL 

CHKEY 

; READ  KEYBOARD 

039C 

CD9D08 

CALL 

CONHX 

; CONVERT  TC  HEX 

039F 

DA9E09 

JC 

ERROR 

; ERROR  EXIT 

;  A  NOW  CONTAINS  THE  LS  NIBBLE  AND 
;  B  CONTAINS  THE  MS  NIBBLE  OF  THE  PORT  ADDRESS 


’ 

7 


\ 
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03A2 

BO 

ORA 

B 

;OB  WITH  B 

• 

f 

LOAD  PROGRAM  (OUT 

PORT)  INTO  RAM  MEMORY 

03A3 

321020 

STA 

CHR17 

; STORE  AT  CHR 1 7 

03A6 

3ED3 

M  VI 

fir 

0D3H 

; LOAD  OPCODE 

0  3A8 

320F20 

STA 

CHR16 

; LOAD  INTO  CHR 1 6 

• 

9 

LOAD  RETURN 

STATEMENT  INTO  MEMORY 

03AE 

3EC9 

M  VI 

A, 

0C9H 

; LOAD  RET 

0  3AD 

321120 

STA 

CHR18 

; ICAD  INTO  CHR 1 8 

• 

• 

WAIT  FOR 

A 

SPACE 

0  3B0 

CDC70  1 

CALL 

CHKEY 

; RE AD  KEYEOARD 

03B3 

FE20 

CPI 

i  i 

;IS  CHARACTER  A  SPACE 

03B5 

C29E09 

JNZ 

ERROR 

; E RROR  EXIT- 

• 

• 

READ  MS 

NIBBLE  OF 

PORT  DATA 

03B8 

CDC701 

CALL 

CHKEY 

; READ  KEYBOARD 

03BB 

CD9D08 

CALL 

CONHX 

;CCNVERT  TO  HEX 

03BE 

DA9E09 

JC 

ERROR 

;E RROR  EXIT 

03C  1 

07 

RLC 

03C2 

07 

RLC 

03C3 

07 

RIC 

03C4 

07 

RLC 

; ROT ATE  INTO  HIGH  NIBBLE 

03C5 

47 

MOV 

B, 

A 

; STORE  IN  REG  B 

• 

t 

READ  LS 

NIBBLE  OF 

PORT  DATA 

03C6 

CDC701 

CALL 

CHKEY 

; READ  KEYBOARD 

03C9 

CD9D08 

CALL 

CONHX 

; CONVERT  TO  HEX 

03CC 

DA9E09 

JC 

ERROR 

;  ERROR  EXIT 

• 

• 

A  NOW  CONTAINS  THE  LS  NIBELE  AND 

• 

• 

E  CONTAINS 

THE  MS 

NIBBLE  OF  THE  PORT  DATA 

0  3CF 

BO 

ORA 

B 

; PUT  IN  LOW  NIBBLE 

• 

f 

CALL  THE 

PROGRAM 

WHICH  WAS  STORED  IN  MEMORY 

• 

9 

THE  DATA 

IS 

THEN 

OUTPUT  TO  THE  PORT 

03D0 

CD0F20 

CALL 

CHR16 

; C ALL  OUTPUT  ROUTINE 

03D3 

C33901 

JMP 

KEYB 

; RETUR N  FROM  ROUTINE 

*  * 

*  ROUTINE  TO  DISPLAY  PARAMETERS  * 

*  * 

THIS  KEYBOARD  SERVICE  ROUTINE  ALLOWS  THE  USEE 
TO  DISPLAY  VARIOUS  PARAMETERS  IN  THE  SYSTEM. 
THE  PROGRAM  ITSELF  IS  VERY  SIMILIAR  TO  THE 
KEYBOARD  ROUTINE  (KEYB) •  IT  ACCEPTS  THREE 
CHARACTERS  AND  THEN  CHECKS  TO  SEE  IF  THE 
CHARACTER  CODE  CORRESPONDS  TO  A  VALID 
CODE  CONTAINED  IN  THE  TABLE  (DISTB) • 


03D6 

CDC701 

DSP: 

CALL 

CHKEY 

; RE AD  KEYBOARD 

03D9 

FE20 

CPI 

i  i 

;IS  CHAR.  A  SPACE 

0  3DB 

C29E09 

JNZ  ERROR  ; NOT  A  SPACE 

;  THE  THREE  CHARACTERS  WILL  NOW  EE  RECEIVED 
;  AND  CHECKED  TO  SEE  IF  THEY  CORRESPOND  TO 
;  A  VALID  PARAMETER  NAME. 

03DE 

1 E03 

M  VI  E  , 

03H 

; LOAD  DIGIT  COUNTER 

03E0 

CDC701 

RDMR1 : 

CALL 

CHKEY 

;  RE  AD  KEYEOARD 

03E3 

ID 

DCR 

E 

; DECREMENT  CHAR.  COUNTER 

03E4 

C2E003 

JNZ 

RDMR1 

.‘RECEIVE  ANOTHER  CHAR. 

/ 
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THREE  CHARACTERS  HAVE  BEEN  RECEIVED 

AND  STORED  IN  THE  PRINT  STACK  AT  LOCATIONS 

CHR6  ,  CHR7 ,  AND  CHR8- 

DISTB  IS  A  TABLE  CONTAINING  THE  VALID 
PARAMETER  NAMES. 


03E7 

219704 

LX  I 

H, 

DISTB 

; LOAD  HL  WITH  TABLE  LOC. 

03E  A 

0  E 1  4 

M  VI 

c. 

20D 

;ALLOK  20  TO  BE  CHECKED 

• 

t 

SEARCH  TABLE 

FOR  CORRECT  ROUTINE 

0  3EC 

3A0520 

FND 1 : 

LDA 

CHR6 

; GET  FIRST  CHAR. 

03  EF 

BE 

CMP 

M 

;COMPARE  WITH  TABLE  ENTRY 

0  3F0 

CAFF03 

JZ 

ST2 

; FIRST  CHAR.  IS  CORRECT 

03F3 

23 

INX 

H 

03F4 

23 

I  NX 

H 

03F5 

23 

INX 

H 

0  3F6 

23 

INX 

H 

03F7 

23 

INX 

H 

; POINT  HL  AT  NEXT  ENTRY 

03E8 

OD 

DCR 

C 

; DECREMENT  CHECK  CCUNTER 

03  F  9 

C2EC03 

JNZ 

FND1 

; C HECK  NEXT  TABLE  ENTRY 

0  3FC 

C39E09 

JMP 

ERROR 

; E RROR  EXIT 

• 

9 

FIRST  CHARACTER  IS 

CORRECT, 

• 

9 

CHECK  SECOND 

CHARACTER. 

03FF 

23 

ST2 

• 

INX 

H 

; POINT  HL  AT  SECOND  CHAR. 

0400 

OEOA 

M  VI 

c. 

1  OD 

;ALLOW  20  TO  BE  CHECKED 

0402 

3A0620 

FND  2 : 

LDA 

CHR7 

; GET  SECOND  CHAR. 

0405 

BE 

CMP 

E 

; COMPA RE  KITH  TABLE  ENTRY 

0406 

CA1504 

JZ 

TST1 

;SECOND  CHAR.  IS  CORRECT 

0409 

23 

INX 

H 

0  40  A 

23 

INX 

H 

0  40E 

23 

INX 

H 

0  40C 

23 

INX 

H 

040D 

23 

INX 

H 

; POINT  HL  AT  NEXT  ENTRY 

0  40E 

OD 

DCR 

C 

; DECREMENT  CHECK  CCUNTER 

04  OF 

C20204 

JNZ 

FND2 

; CHECK  NEXT  TABLE  ENTRY 

0412 

C39E09 

JMP 

ERROR 

; ERROR  EXIT 

• 

9 

SECOND  C 

HARACTER  IS  VALID, 

9 

RECHECK 

FIRST  CHARACTER. 

0415 

2B 

TST  1 : 

DCX 

H 

; POINT  HL  AT  FIRST  CHAR. 

0416 

3A0520 

LDA 

CHR6 

; GET  FIRST  CHAR. 

0419 

BE 

CMP 

E 

; COMPARE  WITH  TABLE  ENTRY 

04  1 A 

C29E09 

JNZ 

ERROR 

; E RROR  EXIT 

0  4 1 D 

23 

INX 

H 

0  4  IE 

23 

INX 

H 

;  POI NT  HL  AT  THIRD  CHAR,. 

04  IF 

OEOA 

M  VI 

c. 

1  OD 

; ALLOW  10  TO  BE  CHECKED 

0421 

3A0720 

FND3 : 

LDA 

CHR8 

; GET  THIRD  CHAR. 

0424 

BE 

CMP 

E 

;CCMPARE  WITH  TABLE  ENTRY 

0425 

CA3404 

JZ 

TST2 

;THIRD  CHAR.  IS  CORRECT 

0428 

23 

INX 

H 

0429 

23 

INX 

H 

0  42  A 

23 

INX 

H 

0  42B 

23 

INX 

H 

042C 

23 

INX 

H 

; POI NT  HL  AT  NEXT  ENTRY 

042D 

OD 

DCR 

C 

; DECREMENT  CHECK  CCUNTER 

042E 

C22104 

JNZ 

FND3 

;CHECK  NEXT  TAELE  ENTRY 

0431 

C39E09 

JMP 

ERROR 

; ERROR  EXIT 

V 

1 


\ 
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;  THIRD  CHARACTER  IS  CORRECT, 
;  CHECK  SECOND  CHARACTER,. 


0434 

2B  TST  2 :  DCX 

H 

; PCI NT  HL  AT  SECOND  CHAR. 

0435 

3A0620 

IDA 

CHR7 

;  GET  SECOND  CHAR. 

0438 

BE 

CMP 

E 

.-COMPARE  WITH  TABLE  ENTRY 

0  43  S 

C29E09 

JNZ 

ERROR 

;  ERROR  EXIT 

;  THIRD  AND 

SECOND  CHARACTERS  ARE  VALID, 

;  RECHECK  FIRST  CHARACTER. 

0  43C 

2B 

DCX 

H 

;  PCI  NT  HL  AT  FIRST  CHAR. 

043D 

3 AO  520 

LDA 

CHR6 

;  GET  FIRST  CHAR. 

0440 

BE 

CMP 

E 

; COMPARE  WITH  TABLE  ENTRY 

0441 

C29E09 

JNZ 

ERROR 

.-ERROR  EXIT 

A  VALID  PARAMETER 

NAME  HAS  EEEN  RECEIVED 

JUMP  TC  APPROPRIATE  ROUTINE 

THE  ADDRESS 

ES  OF  THE  DISPLAY  ROUTINES  ARE 

STORED  IN 

THE  TABLE  DIRECTLY  AFTER  THE 

CHARACTER 

CODE  (SEE  TABLE  DISTB) . 

0444 

23 

I  NX 

H 

0445 

23 

INX 

H 

0446 

23 

INX 

H 

; POI NT  AT  HIGH  ORDER  ADD. 

0447 

5E 

MOV 

E, 

M 

; LOAD  HIGH  ORDER  ADDRESS 

0448 

23 

INX 

H 

;  POINT  AT  LOW  ORDER  ADD. 

0449 

56 

MOV 

D, 

M 

; LOAD  LOW  ORDER  ADDRESS 

0  44A 

EB 

XCHG 

;  LOAD  HL  WITH  ADDRESS 

0  44B 

E9 

PCHL 

;GC  TO  CORRECT  SUBROUTINE 

SUBROUTINE 

TO 

PRINT 

THE  DATA  IN  THE  HL  REG 

THE  NUMBER 

IS  PRINTED  IN  HEXADECIMAL  FORM 

0  44C 

CD 9 DO A  PHL:  CALI 

PRIMM 

; PRINT  EQUAL  SIGN 

044F 

3D20 

DB 

i  —  i 

0451 

00 

DB 

00H 

;  PRINT  MS 

NIBBLE  OF 

MS  BYTE 

0452 

7C 

MOV 

A, 

H 

.-GET  H  REGISTER 

0453 

E6F0 

ANI 

OFOH 

; M ASK  OFF  LOW  NIBBLE 

0455 

OF 

RRC 

0456 

OF 

RRC 

0457 

OF 

RRC 

0458 

OF 

RRC 

;  ROTATE  INTO  LOW  NIBBLE 

0459 

CDBC08 

CALL 

CONAS 

; CONVERT  TC  ASCII 

045C 

E5 

PUSH 

H 

045D 

2A1220 

LHLD 

POINT 

0460 

77 

MOV 

M, 

A 

0461 

El 

POP 

H 

0462 

CD320A 

CALL- 

PRINT 

;  PRINT  TEE  CHARACTER 

PRINT  LS 

NIBBLE  OF 

MS  BYTE 

0465 

7C 

MOV 

A, 

H 

;  GET  H  REGISTER 

0466 

E60F 

ANI 

OFH 

; M ASK  OFF  HIGH  NIBELE 

0468 

CDBC08 

CALL 

CONAS 

;CON VERT  TO  ASCII 

046B 

E5 

PUSH 

H 

046C 

2A1220 

LHLD 

POINT 

0  46F 

77 

MOV 

M, 

A 

0470 

El 

POP 

H 

0471 

CD320A 

CALL 

PRINT 

; PRI NT  THE  CHARACTER 

;  PRINT  MS  NIBBLE  OF  LS  BYTE 


' 


r 

Ir 
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0  474 

7D 

MOV 

A, 

L 

; GET  L  EEG3STEE 

0475 

E6F0 

ANI 

OFOH 

;  M ASK  OFF  LOU  NIBBLE 

0477 

OF 

EEC 

0478 

OF 

EEC 

0479 

OF 

EEC 

0  47  A 

OF 

EEC 

; EOT ATE  INTO  LOU  NIEBLE 

0  47£ 

C.DBC08 

CALL 

CONAS 

;CCNVEET  TO  ASCII 

047E 

E5 

POSH 

H 

047F 

2A1220 

LHLD 

POINT 

0482 

77 

MOV 

M, 

A 

0483 

El 

POP 

H 

0484 

CD320A 

CALL 

PEINT 

; PEI  NT  THE  CHAEACTEE 

;  PEINT  IS 

NIBBLE  OF 

LS  BYTE 

0487 

7D 

MOV 

A, 

L 

; GET  L  BEGISIEB 

0488 

Eo  OF 

ANI 

OFH 

; M ASK  OFF  HIGH  NIBBLE 

0  48  A 

CDBC08 

CALL 

CONAS 

; CON VEET  TO  ASCII 

048B 

E5 

PUSH 

H 

048E 

2A1220 

LHLD 

POINT 

0491 

77 

MOV 

Mr 

A 

0492 

El 

POP 

H 

0493 

CD320A 

CALL 

PEINT 

; PEINT  THE  CHAEACTEE 

;  THE 

ENTIEE 

NUKBEB 

HAS  BEEN  PEINTED 

0496 

C9 

EET 

•JUMP 

TABLE 

FOE  DISPLAY  BOUIINE 

0497 

414C4C 

CISTE: 

DE 

•ALL* 

049  A 

E20  4 

DM 

AiL 

0  49C 

43454E 

DB 

'CEN' 

049F 

A306 

DU 

DCEN 

0  4A1 

43484E 

DB 

*CHN  1 

04A4 

AD07 

DU 

DCHN 

0  4A6 

435349 

DB 

•CSI* 

04A9 

F206 

DU 

DCSI 

0  4  AB 

435354 

DB 

*  CST  * 

04  AE 

AC06 

DU 

DCST 

04B0 

43545  C 

DB 

1 CTP 1 

0  4B3 

0507 

DU 

DC  IP 

04B5 

444953 

DB 

*  D I S* 

04B8 

1807 

DU 

DDIS 

0  4BA 

464C47 

DB 

•  FLG  * 

04BD 

1708 

DU 

DFLG 

0  4BF 

4D4C43 

DB 

*  MLC  * 

04C2 

B506 

DU 

DMLC 

04C4 

504354 

DB 

•PCT* 

04C7 

C806 

DU 

DPCT 

0  4C9 

504F53 

DB 

'POS' 

04CC 

FB07 

DU 

DPOS 

0  4CE 

505249 

DB 

'PEI* 

04D1 

CB07 

DU 

DPEI 

0  4D3 

534143 

DB 

•SAC1 

04D6 

3E07 

DU 

DSAC 

04D8 

534349 

DB 

'SCI* 

04CB 

ECO  7 

DU 

DSCI 

0  4DD 

54414E 

DB 

•TAN* 

/ 
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04E0  DF06  DW  DTAN 

• 

;SUEROUTINE  TO  DISPLAY  PARAMETERS  WHICH  HAVE 
;  BEEN  CHANGED  FROM  THEIR  DEFAULT  VALUES. 

; EACH  PARAMETER  IS  FIRST  COMPARED  TO  ITS 
; DEf A GLT  VALUE.  IF  THE  PARAMTER  IS  STILL  SET  TO 
; ITS  DEFAULT  VALUE,  IT  IS  NOT  PRINTED. 


04E2 

CD000A  ALL 

:  CALL 

HOME 

;  LINE  FEED 

0  4E5 

CD260A 

CALL 

RETN 

; CARRIAGE  RETURN 

0  4E8 

CD9D0A 

CALL 

PRIMM 

0  4EB 

2054494D 

DB 

1  TIM' 

04EF 

00 

DB 

00H 

04F0 

CDA50E 

CALL 

TIME 

;  PRINT  THE  TIME 

• 

9 

CHECK  SCAN  INTERVAL 

04F3 

3A3322 

LDA 

SCAN1 

04F6 

FEO  1 

CPI 

1 

04F8 

CA1505 

JZ 

DPS 

;  DEFAULT  VALUE 

• 

9 

SCAN  INTERVAL  CHANGED  FROM  DEFAULT 

0  4FB 

CD000A 

CALL 

HOME 

; LINE  FEED 

0  4FE 

CD260A 

CALL 

RETN 

; C ARRI AGE  RETURN 

0501 

CD9D0A 

CALL 

PRIMM 

0  504 

5343414E 

DB 

•SCAN  INT 

=  i 

0508 

20494E54 

0  50C 

3D20 

050E 

00 

DB 

00H 

0  50F 

3A3322 

LDA 

SCAN  1 

0512 

CD2108 

CALL 

PRBYT 

; PRI NT  SCAN  INTERVAL 

• 

9 

DISPLAY 

PRINTER  STATUS 

0515 

3A2F22  DPS 

:  LDA 

EROF 

; READ  PRINTER  FLAG 

0518 

A7 

ANA 

A 

; SET  FLAGS 

0519 

CA  550  5 

JZ 

CKCSI 

; DEFAULT 

• 

9 

PRINTER 

HAS  BEEN  ENAELED 

0  5 1 C 

CDOOOA 

CALL 

HOME 

; LINE  FEED 

0  51F 

CD260A 

CALL 

RETN 

;CARRI AGE  RETURN 

0522 

CD9D0A 

CALL 

PRIMM 

0525 

5052494E 

DB 

'PRINT  I NT=  ' 

0529 

54204  94  E 

0  52D 

543D20 

0530 

00 

DB 

00H 

0531 

3A3122 

LDA 

PINT 

0  534 

CD2108 

CALL 

PRBYT 

; PRI NT  PFINT  INTERVAL 

• 

9 

DISPLAY 

ACTIVITY  PRINT  FLAG 

0537 

3A1A21 

LDA 

ACLOC 

0  53  A 

A7 

ANA 

A 

; SET  FLAGS 

0  53B 

CA5505 

JZ 

CKCSI 

;  DEF  AULT 

• 

9 

ACTIVITIES  WILL  BE 

PRINTED 

0  53E 

CDOOOA 

CALL 

HOME 

;  LINE  FEED 

0541 

CD260A 

CALL 

RETN 

;CARRI AGE  RETURN 

0544 

CD9D0A 

CALL 

PRIMM 

0547 

464C4147 

DB 

'FLAGS  PRINTED' 

0  54E 

53205052 

0  54E 

494E5445 

0553 

44 

0554 

00 

DB 

00H 

> 
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;  DISPLAY  THE  CASSETTE  STORE  INTERVAL 


0555 

3A3622  CKCSI : 

LDA 

CASH  ;LOAD  CASSETTE  INTERVAL 

0558 

f  EO  1 

CPI 

1  ;  CCM  P.  RITH  DEFAULT  VALUE 

055A 

CA7805 

JZ 

CKDIS  ; DEFAULT  VALUE 

• 

• 

CASSETTE 

STORE  INTERVAL  CHANGED 

0  55  B 

CD000A 

CALL 

HOME  ;LINE  FEED 

0560 

CD260A 

CALL 

RETN  ; C ARE  RETURN 

0563 

CD9D0A 

CALL 

PRIMM 

0566 

43415353 

DB 

'CASS.  INTERVAL' 

056A 

2E20494E 

0  56E 

54455256 

0572 

414C 

0574 

00 

DB 

OOH 

0575 

CDF806 

CALL 

PBCSI 

• 

» 

DISPLAY  THE  DISTANCE  AT  EHICH  SCANNING 

• 

9 

SATE 

:  tf  ILL 

INCREASE 

0578 

3A1C21  CKDIS: 

LDA 

DISTC  ; LOAD  VALUE 

0  57B 

FEOO 

CPI 

0  ;COMPA RE  TO  DEFAULT 

0  57D 

CA9A05 

JZ 

CKCN 

• 

« 

RATE 

INCREASE  DISTANCE  HAS  EEEN  CHANGED 

0580 

CDOOOA 

CALL 

HOME  ;LINE  FEED 

0583 

CD260A 

CALL 

RETN  ; C ARRI AGE  RETURN 

0586 

CD9D0A 

CALL 

PRIMM 

0589 

52415445 

DE 

'RATE  INC  DIST* 

058D 

20494E43 

0591 

20444953 

0595 

54 

0596 

00 

DB 

OOH 

0597 

CD3107 

CALL 

PEDIS 

• 

9 

DISPLAY  THE  CHANNEL 

059  A 

3A3520  CKCN : 

LDA 

CHNL  ; GET  CHANNEL  NUMBER 

059D 

A7 

ANA 

A  ; SET  FLAGS 

05SE 

CAB905 

JZ 

CKCH  ; NC  CHANNEL  SELECTED 

• 

9 

A  CHANNEL 

HAS  BEEN  SELECTED 

05A1 

CDOOOA 

CALL 

HOME  ; LINE  FEED 

05A4 

CD260A 

CALL 

REIN  ; C ARRI AGE  RETURN 

0  5A7 

CD9D0A 

CALL 

PRIMM 

05AA 

4348414E 

DB 

•CHANNEL  ' 

0  5AE 

4E454C2  C 

05E2 

00 

DB 

OOH 

05E3 

3A3520 

LDA 

CHNL  ; GET  CHANNEL  NUMBER 

05E6 

CD2108 

CALL 

PRBYT  ; PRINT  CHANNEL  NUMBER 

• 

9 

DISPLAY  ACTIVE  CHANNELS 

05E9 

3A3620  CKCH: 

LDA 

CHN1 

05BC 

A7 

ANA 

A  ; SET  FLAGS 

0  5BD 

CAC305 

JZ 

CKCEN 

• 

9 

ACTIVE  CHANNELS  HAVE  EEEN  SET, 

• 

• 

PRINT  THE 

ACTIVE  CHANNEL  NUMEERS 

05C0 

CD6A07 

CALL 

DSAC2 

• 

9 

CHECK  CEN 

05C3 

2A1E20  CKCEN: 

LHLD 

CEND  ;  LCAD  CEN 

05C6 

7C 

MOV 

A,  H  .-CHECK  MSB 

05C7 

FE3F 

CPI 

3FH 

05C9 

C2D505 

JNZ 

NCCEN  .-CHANGED  FROM  DEFAULT 

I  :  Of 


■j 


■ 
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0  5CC 

7D 

MOV  A , 

L 

;CHECK  LSE 

05CD 

FEFF 

CPI 

OFFH 

05CF 

C2D505 

JNZ 

NOCEN 

; CH ANG ED  FROM  DEFAULT 

0  5D2 

C3EE05 

JMP 

CKCST 

• 

• 

CEN 

HAS  BEEN  CHANGED 

05D5 

CD000A  NOCEN: 

CALL 

HOME 

; LIN E  FEED 

05D8 

CD260A 

CALL 

RETN 

;C ARRI AGE  RETURN 

0  5DB 

CD9D0A 

CALL 

PRIMM 

0  5DE 

42554646 

DB 

•BUFF. 

END* 

05E2 

2E20454E 

05E6 

44 

05E7 

00 

DB 

OOH 

05E8 

2A1F20 

LHLD 

CEND 

0  5EB 

CD4C0  4 

CALL 

EHL 

;  PRINT  CEN 

• 

9 

CHECK  CST 

05EE 

2A1D20  CKCST: 

LHLD 

CSTRT 

;LCAD  CST 

05E  1 

7C 

MOV  A  , 

H 

; CH ECK  MSB 

05F2 

FE30 

CPI 

30H 

05F4 

C20006 

JNZ 

NCCST 

; CHANGED  FROM  DEFAULT 

05F7 

7D 

MOV  A, 

L 

; CHECK  LSB 

0  5F8 

FEOO 

CPI 

OOH 

05FA 

C20006 

JNZ 

NOCST 

; C H A N G E D  FROM  DEFAULT 

0  5FD 

C31E06 

JMP 

CKCTP 

;  CH  ECK  NEXT  PARAMETER 

• 

9 

CST 

HAS  BEEN  CHANGED 

0  60  C 

CDOOOA  NOCST: 

CALL 

HOME 

.-LINE  FEED 

0603 

CD  26  0 A 

CALL 

RETN 

.-CARRIAGE  RETURN 

0606 

CD9D0A 

CALL 

PRIMM 

0609 

42554646 

DB 

•BUFF. 

START  * 

0  60  B 

2E205354 

06  11 

415254 

0614 

00 

DB 

OOH 

0615 

2A1D20 

LHLD 

CSTRT 

0618 

CD4C04 

CALL 

PHL 

; PRI NT  CST 

• 

9 

CHECK  CTP 

06 1 E 

3A2F20  CKCTP : 

LDA 

TPLEN 

; LOAD  TPLEN 

0  6  IE 

FE1E 

CPI 

30D 

0620 

CA3B06 

JZ 

CKMLT 

.-DEFAULT  VALUE 

• 

9 

CTP 

BAS  BEEN  CHANGED 

0623 

CDOOOA 

CALL 

HOME 

; L I N E  FEED 

0626 

CD260A 

CALL 

RETN 

; C ARRI AG E  RETURN 

0629 

CD9D0A 

CALL 

PRIMM 

0  62C 

54415045 

DB 

•  TAPE 

LENGTH* 

0630 

204C454E 

0634 

475448 

0637 

00 

DB 

OOH 

0638 

CD0E07 

CALL 

PRCTP 

; PRINT  CTP 

• 

9 

CHECK  MULTIPLIER  CONSTANT 

063B 

3A3F22  CKMLT: 

LDA 

CMULT 

;LOAD  CMULT 

063E 

FE32 

CPI 

50 

; COMPARE  WITH  DEFAULT 

0640 

CA5E06 

JZ 

CKTAN 

-.DEFAULT  VALUE 

• 

9 

MULTIPLIER 

CONSTANT  HAS  EEEN  CHANGED 

0643 

CDOOOA 

CALL 

HOME 

; LIN E  FEED 

0646 

CD260A 

CALL 

RETN 

; C ARR  RETURN 

064  S 

CD9D0A 

CALI 

PRIMM 

*  -  0 


1  43 


0  64C 

4D554C54 

DB 

'MULT.  CO 

NST  ANT  » 

0650 

2E20434E 

0654 

4E53544 1 

0658 

4E54 

0  65  A 

00 

DE 

00H 

0  65  E 

CDBE06 

CALL 

FRMLC 

; PRINT  MULT  CONSTANT 

;  CHECK  TEST 

ANTENNA 

CCMPARATOR  VALUE 

065E 

3A1221  CKTAN: 

LD  A 

TANCP 

; LOAD  VALUE 

066  1 

EE  1  4 

CPI 

20 

; C C M F A R E  WITH  DEFAULT 

0663 

CA7E06 

JZ 

CKPCI 

; DEFAULT  VALUE 

;  I AN CP  HAS 

BEEN  CHANGED 

0666 

CD000A 

CALL 

HOME 

; LINE  FEED 

0669 

CD260A 

CALL 

RETN 

; C APR.  RETURN 

0  66C 

CD9E0A 

CALL 

PRIMM 

0  66F 

54455354 

DB 

•TEST  COMPARE' 

0673 

20434E4D 

0677 

50415245 

067E 

00 

DB 

00H 

067C 

CDE506 

CALL 

PRTAN 

;  PRINT  VALUE 

;  CHECK  PERCENTAGE  EOR  ACTIVITY 

067 F 

3A1D21  CKPCT; 

LDA 

ACPCT 

; LO AD  VALUE 

0682 

EE  50 

CPI 

80 

;  CCM  PA  RE  WITH  DEFAULT 

0684 

CA3901 

JZ 

KEYB 

; DEF AULT  VALUE 

;  PERCENTAGE 

HAS  BEEN  CHANGED 

0687 

CDOOOA 

CALL 

HOME 

; LIN E  EEED 

066A 

CD260A 

CALL 

RETN 

;CARR.  RETURN 

068D 

CD9D0A 

CALL 

PRIMM 

0690 

4  1  43542E 

DB 

'ACT.  PERCENT' 

0694 

20504552 

0698 

43454E54 

069C 

00 

DB 

00H 

069D 

CDCE06 

CALL 

FRPCT 

;  PRINT  VALUE 

;  ALL 

PARAMETERS  HAVE  EEEN  CHECKED 

06A  0 

C33901 

• 

JMP 

KEYB 

SUBROUTINE 

TO 

DISPLAY  CEND 

0  6 A3 

2A1F20  DCEN : 

LHLD 

CEND 

;LCAE  HL  REGISTERS 

06A6 

CD4C04 

CALL 

PHL 

; PRINT  CEND 

06A9 

C33901 

• 

JMP 

KEYB 

; RETURN 

•SUBROUTINE 

TO 

DISPLAY  CSTRT 

0  6  AC 

2A1D20  DCST: 

LHLD 

CSTRT 

;LCAE  HL  REGISTERS 

06  AE 

CD4C04 

CALL 

PHL 

;  PRINT  CSTRT 

06B2 

C33901 

JMP 

KEYB 

; RETURN 

•SUBROUTINE 

TO 

DISPLA 

Y  THE  MULTIPLIER  CONSTANT 

06B5 

CDBB06  DMLC: 

CALL 

PRMLC 

0  6B8 

C33901 

JMP 

KEYB 

0  6BB 

CD9D0A  FBMLC : 

CALL 

PRIMM 

06EE 

3D20 

DB 

i  — 

• 

06C0 

00 

DB 

00H 

06C1 

3A3E22 

LDA 

CMULT 

06C4 

CD2108 

CALL 

PRBYI 

06C7 

C9 

RET 

- 

- 
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9 

;  SUBROUTINE 

TO  DISPLAY  ACTIVITY  PERCENTAGE 

06C8 

CDCE06 

EPC1: 

CALL 

PRPCT 

0  6CB 

C33901 

JMP 

KEYB 

0  6CE 

CD9D0A 

PRPCT: 

CALL 

PRIMM 

0  6E  1 

3D20 

DB 

•  =  t 

0  6D3 

00 

DB 

00H 

0  6D4 

3A1D21 

LD  A 

ACPCT 

06D7 

47 

MOV 

B ,  A 

STORE  VALUE  IN  B 

0  6E8 

3E64 

M  VI 

A ,  100 

0  6DA 

90 

SUB 

B 

;  1  00-  VALUE 

0  6EB 

CD2108 

CALL 

PRBYT 

06DE 

C9 

• 

RET 

9 

; SUBROUTINE 

TO  DISPLAY  TEST  ANTENNA 

;  COMPARATOR  VALUE 

06DF 

CDE506 

DTAN  : 

CALL 

PRTAN 

06E2 

C33901 

JMP 

KEYB 

06E5 

CD9D0A 

PRTAN : 

CALL 

PRIMM 

0  6E8 

3D20 

DB 

•  =  • 

0  6EA 

00 

DB 

00H 

0  6EB 

3A1221 

EDA 

TANCP 

06EE 

CD2108 

CALL 

PRBYT 

0  611 

C9 

« 

RET 

.-SUBROUTINE 

TO  DISPLAY  THE  CASSETTE 

;  STORE  INTERVAL 

06 12 

CDF806 

DCSI: 

CALL 

PRCSI 

0  6F5 

C33901 

JMP 

KEYB 

06F8 

CD9D0A 

PRCSI: 

CALL 

FRIMM 

06FE 

3D20 

DB 

*  =  • 

06FD 

00 

DB 

00H 

0  6FE 

3A3622 

IDA 

cash 

0701 

CD  2108 

CALL 

PRBYT 

0704 

C9 

• 

RET 

9 

SUBROUTINE 

TO  DISPLAY  TPLEN 

0705 

CD0B07 

DCTP: 

CALL 

PRCTP 

0708 

C33901 

JMP 

KEYB 

0  70B 

CD9D0A 

PRCTP: 

CALL 

PRIMM 

; PRI NT  EQUAL  SIGN 

070E 

3D20 

DB 

•  =  t 

0710 

00 

DB 

00H 

071  1 

3A2F20 

LDA 

TPLEN 

0714 

CD2108 

CALL 

PRBYT 

0717 

C9 

• 

RET 

9 

SUBROUTINE 

TO  DISPLAY  DISTC 

0718 

3A1C21 

DDIS : 

LDA 

DISTC 

;LCAD  VALUE 

0  7 1  B 

FE00 

CPI 

0 

;  COM  PA  RE  TO  DEFAULT 

0  7 1 D 

CA2607 

J  Z 

DDDF 

; DEFAULT 

0720 

CD 3 107 

CALL 

PRDIS 

;PRINT  VALUE 

0723 

C33901 

JMP 

KEYB 

0  726 

CD9D0A 

DDDF: 

CALL 

PRIMM 

0729 

204F4646 

DB 

i  OFF' 

» 

► 


i  / 


II 


' 
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0  72D 

00 

DB 

OOH 

0  72E 

C33901 

JMP 

KEYB 

0  731 

CD9D0A  PEDIS: 

CALL 

PEIMM 

0734 

3D20 

DB 

i  — 

i 

0  73  6 

00 

DB 

OOH 

0737 

3A1C21 

LDA 

DISTC 

0  73  A 

CD2108 

CALL 

PRBYT 

0  73  D 

C9 

• 

RET 

; SUBROUTINE 

TO 

DISPLAY  ACTIVE  CHANNELS 

073E 

CD4407  DSAC: 

CALL 

DSAC  1 

0741 

C33901 

JMP 

KEYB 

0744 

3A3620  DSAC1: 

LDA 

CHN1  ; H AVE  CHANNELS  BEEN  SET? 

0747 

A7 

ANA 

A 

;  S  ET  FLAGS 

0748 

C26A07 

JNZ 

DSAC2  ; CHANNELS  HAVE  BEEN  SET 

;  THERE  HAVE 

BEEN  NO  CHANNELS  SET 

074E 

CD000A 

CALL 

HOME  ; LINE  FEED 

0  74E 

CD260A 

CALL 

REIN 

0751 

CD9D0A 

CALL 

PRIMM 

0754 

4E4F204 1 

DB 

•NO  ACTIVE  CHANNELS* 

0758 

43544956 

0  75C 

45204348 

0760 

41 4E4E45 

0764 

4C53 

0766 

00 

DB 

OOH 

0767 

C33901 

JMP 

KEYB  ; RETURN 

;  THERE  HAVE 

BEEN  CHANNELS  SET 

0  76  A 

CDOOOA  DSAC2: 

CALL 

HOME  ; LINE  FEED 

0  76  D 

CD260A 

CALL 

RETN  ; C ARRI AG E  RETURN 

0770 

CD9D0A 

CALL 

PRIMM 

0773 

41435449 

DB 

•ACTIVE  CHANNELS* 

0777 

56452043 

077E 

48414E4E 

077F 

454C53 

0782 

00 

DB 

OOH 

0783 

CDOOOA 

CALL 

HOME  ; LINE  FEED 

0786 

CD260A 

CALL 

RETN  ; C ARRI AGE  RETURN 

0789 

0605 

K  VI 

B, 

05  ; LOAD  COUNTER 

078B 

213620 

LXI 

H, 

CHN1  .'POINT  HL  AT  TABLE 

078E 

11C10C  CNEXT: 

LXI 

D, 

CHTAB 

0791 

OEO  1 

M  VI 

c, 

01 

0793 

1 A  CKTAB: 

LDAX 

D 

.'LOAD  FIRST  TABLE  ENTRY 

0794 

BE 

CMP 

M 

;CCM PARE  WITH  CHANNEL  CODE 

0795 

CA9D07 

JZ 

FDCHN  ; FOUND  ACTIVE  CHANNEL 

0798 

OC 

INR 

C 

; I NCREMENT  CHANNEL  NUMBER 

0799 

13 

INX 

D 

; CHECK  NEXT  TABLE  ENTRY 

0  79  A 

C39307 

JMP 

CKTAB 

;  CHANNEL 

NUMBER  HAS  BEEN  FOUND 

0  79D 

79  FDCHN : 

MOV 

A, 

C  .'LOAD  CHANNEL  NUMEER 

079E 

CD2108 

CALL 

ERBYT  ;  PRINT  CHANNEL  NUMBER 

07A1 

CDE809 

CALL 

MOVE  ;  LEA VE  SPACE 

07A4 

23 

INX 

H 

; CHECK  NEXT  CHANNEL  NUMBER 

07A5 

05 

DCR 

B 

; DECREMENT  COUNTER 

0  7A6 

C8 

RZ 

> 


'  * 


.  ,  •  * 


146 


0  7A7 

7  E 

MOV 

A, 

M  ; LOAD  NEXT  CHANNEL  CODE 

07A8 

A7 

ANA 

A 

; SET  FLAGS 

07A9 

C8 

RZ 

0  7A  A 

C38E07 

JMP 

• 

CNEXT  ; DISPLAY  NEXT  CHANNEL 

;  S  UBROUTINE 

TO 

DISPLAY  CHANNEL 

07AD 

CD9D0A 

DCHN;  CALL 

PRIMM 

07B0 

3D20 

DB 

t  —  i 

07B2 

00 

DB 

00H 

0  7E3 

3A3520 

LDA 

CHNL 

07B6 

A7 

ANA 

A 

; SET  FLAGS 

07B7 

CAC007 

JZ 

NONE  ; NO  CHANNEL  SET 

;  A  CHANNEL 

HAS  BEEN  SET 

;  PRINT  THE 

CHANNEL  NUMBER 

0  7BA 

CD2108 

CALL 

PRBYT  ; PRI NT  CHANNEL  NUMEER 

07BD 

C33901 

JMP 

KEYB  ; RETURN 

;  NO  CHANNEL 

HAS  BEEN  SET 

0  7C0 

CD9D0A 

NONE:  CALL 

PRIMM 

07C3 

4E4F4E4 

5  DB 

•  NONE' 

Old 

00 

DB 

00H 

07C6 

C33901 

JMP 

KEYB  ; RETURN 

; S  UBROUTINE 

TO 

DISPLAY  PRINT  INTERVAL 

07CB 

3A2F22 

DPRI:  LDA 

EROF  ; R EAD  PRINTER  FLAG 

07CE 

A7 

ANA 

A 

; SET  FLAGS 

0  7CF 

CAE  1 07 

JZ 

DPRI 1  ; PRINTER  DISABLED 

;  PRINTER  HAS 

BEEN  ENABLED , 

;  PRINT  THE 

PRINT  INTERVAL 

07B2 

CD9D0A 

CALL 

PRIMM 

07E5 

3D20 

DB 

« — 

• 

07B7 

00 

DB 

00H 

07D8 

3A3122 

LDA 

PINT 

07IB 

CD  2  1 08 

CALL 

PRBYT  ; PRI NT  PRINT  INTERVAL 

07DE 

C33901 

JMP 

KEYB 

;  PRINTER  IS 

DISABLED 

07E1 

CD9D0A 

DPR1 1  :  CALL 

PRIMM 

07E4 

204F464 

6  DB 

i 

OFF' 

07E8 

00 

DB 

00H 

07E9 

C33901 

JMP 

KEYB 

•  SUBROUTINE 

TO 

DISPLAY  SCAN  INTERVAL 

07EC 

CD9E0A 

ESCI:  CALL 

PRIMM 

07EF 

3D20 

DB 

i  = 

• 

07F1 

00 

DB 

00H 

07F2 

3A3322 

LDA 

SCAN1 

0  7F5 

CD2108 

CALL 

PRBYT  ; PRINT  SCAN  INTERVAL 

07F8 

C33901 

JMP 

• 

KEYB 

•SUBROUTINE 

TO 

DISPLAY  PRINT  ACTIVITY  FIAG 

07FE 

3A1A21 

EPOS:  IDA 

ACLOC 

07FE 

A7 

ANA 

A 

;  SET  FLAGS 

0  IFF 

CA0D08 

JZ 

DPOS2  ; PRINT  POSITIONS 

;  ACTIVITY 

TO 

EE  PRINTED 

0802 

CD9E0A 

EPOS  1  :  CALL 

PRIMM 

1 
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0605 

204F4646 

DB 

t 

OFF* 

0609 

00 

DB 

00H 

0  80  A 

C33901 

JMP 

KEYB 

; RETURN 

;  POSITIONS 

1  TO  BE  PRINTED 

0  60  C 

CD9D0A 

DP0S2 :  CALL 

ERIMM 

0610 

20  4F4E 

DB 

i 

ON* 

0813 

00 

DB 

00H 

0614 

C33901 

JMP 

KEYB 

; RETURN 

0617 

3A  1A2  1 

DFLG:  LDA 

ACLOC 

081  A 

A7 

ANA 

A 

; SET  FLAGS 

0  8  1 E 

CA0208 

JZ 

DPOS1 

0  6 1 E 

C30D06 

JAB 

• 

DPOS2 

;  SUBROUTINE 

TO 

PRINT 

ONE  EYTE  IN  DECIMAL 

;  NUMBER  IS  ENTERED  IN 

THE  ACCUMULATOR 

;  T  HE  BINARY 

NUMBER  MUST  BE  CONVERTED 

; TO  DECIMAL, 

AND  THEN 

TO  ASCII  AND 

;THEN  PRINTED- 

0821 

E5 

PRBYT:  PUSH 

H 

0822 

C  5 

PUSH 

B 

0823 

CD7608 

CALL 

HXDEC 

; CONVERT  TO  DECIMAL 

0826 

4F 

MOV 

c, 

A 

; STO RE  IN  BEG  C 

;  PRINT  MS 

DIGIT 

0627 

E6F0 

ANX 

OFOH 

; MASK  OFF  IS  DIGIT 

0829 

OF 

RRC 

082A 

OF 

RRC 

0  82B 

OF 

RRC 

0  82C 

OF 

RRC 

062D 

CDBC08 

CALL 

CONAS 

; CON  VERT  TO  ASCII 

0630 

2A1220 

LHLD 

POINT 

0633 

77 

MOV 

M, 

A 

; P UT  MS  DIGIT  IN  STACK 

0834 

CD320A 

CALL 

PRINT 

; PRINT  MS  DIGIT 

;  GET  SECOND 

DIGIT 

0637 

23 

I  NX 

H 

0638 

79 

MOV 

A, 

C 

; LOAD  CHANNEL  NUMBER 

;  PRINT  SECOND  DIGIT 

0639 

E60F 

ANI 

OFH 

;  MASK  OFF  MS  DIGIT 

0  83  E 

CDBC08 

CALL 

CONAS 

;CCNVERT  TO  ASCII 

0  83E 

77 

MOV 

M, 

A 

0  83F 

CD320A 

CALL 

PRINT 

; PRINT  IS  DIGIT 

0842 

Cl 

POP 

B 

0843 

El 

POP 

H 

0844 

C  9 

RET 

“  A 
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SUBROUTINE  TO  MULTIPLY  TWO  8  Eli  INTEGERS 
NUMBERS  TO  BE  MULTIPLIED  ARE  LOADED  INTO 
THE  BSC  REGISTERS.  THE  ANSWER  IS 


RETURNED 

IN 

THE  BC 

REGISTER.. 

0845 

D5 

MULT8:  PUSH 

D 

0846 

E5 

PUSH 

H 

0847 

58 

MOV 

E, 

B 

0648 

0608 

M  VI 

B, 

C8D 

LOAD  COUNTER  WITH  8 

084A 

A  F 

XRA 

A 

;CLE AR  ACCUMULATOR 

084B 

57 

MOV 

D, 

A 

084C 

67 

MOV 

H, 

A 

084D 

6F 

MOV 

1, 

A 

CLEAR  REGISTERS 

0  84  E 

79 

MULT:  MOV 

A, 

C 

LCAD  MULTIPLIER 

0  84E 

OF 

RRC 

SHIFT  DO  INTO  CARRY 

0850 

4F 

MOV 

c. 

A 

STORE  SHIFTED  MULTIPLIER 

0851 

D25508 

JNC 

NCMUL 

BIT  IS  ZERO 

0854 

19 

DAD 

D 

ADD  MULTIPLICAND  TO  EL 

0855 

7B 

NOMUL:  MOV 

A  r 

E 

LOAD  LS  MULTIPLICAND 

0856 

17 

RAL 

SHIFT  LEFT,  D7  TO  CY 

0  857 

5F 

MOV 

E, 

A 

0858 

7A 

MOV 

A  r 

D 

; LOAD  MS  MULTIPLICAND 

0859 

17 

RAL 

;CY  TO  DO 

085A 

57 

MOV 

D, 

A 

0S5B 

05 

DCR 

B 

;DECREMENT  COUNTER 

085C 

C24E08 

JNZ 

MULT 

NOT  FINISHED  YET 

085E 

4D 

MOV 

c. 

L 

0860 

44 

MOV 

B, 

H 

0861 

El 

POP 

H 

0862 

D 1 

POP 

D 

0863 

C9 

RET 

SUBROUTINE 

TO 

CONVERT  DECIMAL  NUMBER  IN 

ACCUMULATOR  TO  HEX  NUMEER 

THE  RESULT 

IS 

RETURNED  IN  THE  ACCUMULATOR 

0864 

C5 

DECHX:  PUSH 

B 

0865 

47 

MOV 

B, 

A 

;  TEMP  STORAGE 

0866 

E60F 

ANI 

OFH 

;  M ASK  HIGH  DIGIT 

0868 

4F 

MOV 

c. 

A 

;  STORE  LS  DIGIT 

0869 

78 

MOV 

A  / 

B 

066A 

E6F0 

ANI 

OFOH 

;  M  ASK  LOW  DIGIT 

0  86C 

OF 

RRC 

086D 

OF 

RRC 

;  M ULTI PLIED  BY  4 

086E 

47 

MOV 

B, 

A 

;  STORE  IN  E 

086f 

OF 

RRC 

0870 

OF 

RRC 

0871 

80 

ADD 

B 

; ADD  ORIGINAL  NUMBER 

0872 

07 

RLC 

;MULTIPLY  EY  2 

0673 

81 

ADD 

C 

; ADD  LS  DIGIT 

5 
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0674  Cl  POP  B 

0875  C9  RET 

« 

; S  UBROUTINE  TO  CONVERT  HEX  NUMEER  IN  ACC* 
;TO  A  DECIMAL  NUMBER 

; THE  RESULT  IS  RETURNED  IN  THE  ACCUMULATOR 


CARRY  EIT  IS  SET  IF  THERE  HAS  EEEN  AN  ERROR 


0876 

C5 

HXDEC:  PUSH 

B 

0877 

D5 

PUSH 

D 

0878 

IE  00 

M  VI 

E, 

00H 

0  87  A 

0E00 

M  VI 

c. 

00H 

087C 

0608 

M  VI 

B, 

08D 

LOAD  COUNTER 

087E 

07 

ROT:  RLC 

ROTATE  B7  INTO  CARRY 

087F 

57 

MOV 

D, 

A 

STORE  ACCUMULATOR 

0880 

79 

MOV 

A, 

C 

LOAD  ANSWER 

0881 

8B 

ACC 

E 

ADD  CARRY 

0882 

27 

DA  A 

DECIMAL  ADJUST 

0  883 

DA9908 

JC 

EREX 

ERROR  EXIT 

0886 

05 

DCR 

B 

DECREMENT  COUNTER 

0887 

CA9408 

J  2 

END1 

DONE? 

0  88  A 

87 

ADD 

A 

MULTIPLY  EY  2 

088B 

27 

DAA 

DECIMAL  ADJUST 

0  88C 

DA9908 

JC 

EREX 

ERROR  EXIT 

0  88F 

4F 

MOV 

c. 

A 

STORE  ANSWER 

0890 

7A 

MOV 

A, 

D 

LOAD  ACCUMULATOR 

0891 

C37E08 

JMP 

EOT 

NOT  DONE  YET 

0894 

D 1 

END  1 :  POP 

D 

0895 

Cl 

POP 

B 

0896 

37 

STC 

0897 

3F 

CMC 

; CLEAR  CARRY 

0898 

C9 

RET 

0899 

D 1 

EREX:  POP 

D 

089A 

Cl 

POP 

B 

089E 

37 

STC 

;  SET  CARRY 

089C 

C9 

RET 

• 

; S  UEROUTINE 

TO 

CONVERT  THE  ASCII  CHAR.  IN  THE 

;ACCUM.  10 

ITS 

CORRESPONDING  HEX  NUMBER  AND 

;  RETURN  THE 

ANSWER  IN 

THE  ACCUMULATOR. 

;  THE  CARRY 

EIT 

IS  SET 

IF  THERE 

; HAS  EEEN  AN  ERROR. 

089D 

C5 

CONHX:  PUSH 

E 

STORE  EC  REGISTERS 

089E 

E5 

PUSH 

H 

STORE  HL  REGISTERS 

0  89F 

4F 

MOV 

c. 

A 

STORE  CHARACTER  IN  C 

08A0 

0610 

M  VI 

B, 

1  OH 

LOAD  COUNTER 

08A2 

210109 

LXI 

H, 

ASCHX 

LOAD  TAELE  ADDRESS 

0  8A5 

7  E 

TAGIN:  MOV 

A, 

M 

LOAD  TAELE  DATA 

0  8A6 

B9 

CMP 

C 

COMPARE  WITH  CHARACTER 

08A7 

CAB708 

JZ 

FDHEX 

CORRECT  CHARACTER 

0  8AA 

05 

DCR 

E 

DECREMENT  COUNTER 

08AE 

CAB308 

JZ 

ERLV 

ERROR  EXIT 

0  8AE 

23 

INX 

H 

08AF 

23 

I  NX 

H 

POI NT  AT  NEXT  TABLE  ENTRY 

08B0 

C3A508 

JMP 

TAGIN 

;CHECK  NEXT  TAELE  ENTRY 

’ 
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08B3 

37 

ERLV: 

STC 

SET  CARRY 

0  SB4 

C3B908 

JMP 

LEVE 

EXIT  FROM  SUBROUTINE 

0  8B7 

23 

FDHEX: 

I  NX 

H 

POINT  AT  HEX  NUMBERS 

06B8 

7E 

MOV  A, 

M 

LOAD  HEX  NUMBER  INTO  A 

08B9 

El 

IEVE: 

POP 

H 

RESTORE  HL  REGISTER 

0  6B  A 

Cl 

POP 

B 

RESTORE  EC  REGISTERS 

08EE 

C9 

• 

RET 

; S  UBROUTI NE  TO 

CONVERT  THE  HEX  NUMBER  IN  THE 

;  ACC. 

TO  ITS  CORRESPONDING  ASCII  CHARACTER  AND 

; RETURN  THE  ANSWER  IN 

THE  ACCUMULATOR,. 

; C ARR Y 

EIT  IS 

SET  IF  THERE  HAS  EEEN  AN  ERROR. 

0  8BC 

C5 

CONAS: 

POSH 

B 

STORE  EC  REGISTERS 

08BD 

E5 

PUSH 

H 

STORE  HL  REGISTERS 

0  8BE 

4F 

HO  V  C, 

A 

STORE  NUMBER  IN  C 

08BF 

0610 

M  VI  B, 

1  OH 

LOAD  COUNTER 

08C1 

210209 

LXI  H, 

ASCHX+1  ; LO AD  TAELE  ADDRESS 

0  8C4 

7E 

TAGN1: 

MOV  A  , 

M 

LOAD  TAELE  DATA 

06C5 

B9 

CMP 

C 

COMPARE  WITH  NUMBER 

08C6 

CAD608 

JZ 

FDASC 

CORRECT  NUMBER 

0  8C9 

05 

DCR 

E 

DECREMENT  COUNTER 

08C  A 

CAE208 

JZ 

ERLV1 

ERROR  EXIT 

0  8CD 

23 

I  NX 

H 

08CE 

23 

I  NX 

H 

POINT  AT  NEXT  TABLE  ENTRY 

08CE 

C3C408 

JMP 

TAGN1 

CHECK  NEXT  TABLE  ENTRY 

08D2 

37 

ERL V  1  : 

STC 

SET  CARRY 

08D3 

C3E808 

JMP 

LEA  V  1 

EXIT  FROM  SUBROUTINE 

08B6 

2B 

FEASC: 

DCX 

H 

POINT  AT  ASCII  CHARACTER 

08D7 

7E 

MOV  A, 

M 

LOAD  ASCII  CHAR.  INTO  A 

0808 

El 

IE AV 1 : 

POP 

H 

RESTORE  HL  REGISTER 

08D9 

Cl 

POP 

B 

RESTORE  EC  REGISTERS 

08DA 

C9 

RET 

; SUBROUTINE  TO 

RECEIVE  TWO  DECIMAL  DIGITS 

;  FROM 

THE  KEYBOARD 

;  ANE 

CONVERT' 

THE  NUMBER  TO  HEX 

;  THE 

RESULT 

IS  RETURNED  IN  THE  ACCUMULATOR 

08DB 

C5 

eecky: 

PUSH  B 

08CC 

CDC701 

CALL 

CHKEY 

READ  KEYBOARD 

0  SEE 

FE20 

CPI 

i  • 

IS  CHARACTER  A  SPACE 

08E1 

C29E09 

JNZ 

ERROR 

NOT  A  SPACE 

0  8E4 

CDC701 

CALL 

CHKEY 

READ  MS  DIGIT 

08E7 

CD9D08 

CALL 

CCNHX 

CONVERT  TO  DECIMAL 

0  8EA 

EA9E09 

JC 

ERROR 

ERROR  EXIT 

0  8EE 

07 

RLC 

0  8EE 

07 

RLC 

08EE 

07 

RLC 

08F0 

07 

RLC 

ROTATE  INTO  HIGH  NIBBLE 

0  8F1 

47 

MOV  B, 

A 

STORE  IN  REG  E 

0  8F2 

CDC701 

CALL 

CHKEY 

RECEIVE  LS  DIGIT 

08F5 

CE9E08 

CALL 

CONHX 

CONVERT  TO  DECIMAL 

0  6F8 

EA9E09 

JC 

ERROR 

ERROR  EXIT 

0  8FB 

BO 

ORA  B 

ADD  LS  DIGIT 

0  8FC 

CD6408 

CALL 

DECHX 

CONVERT  TO  HEX 

1 
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0  8FF 

Cl 

POP 

B 

0900 

C9 

BET 

• 

« 

« 

LOOK-UP  TABLE  FOE  ASCII-HEX  CONV.  ROUTINES. 

0901 

30003101 

ASCHX:  DB 

3  OH  r  00H , 3  1H ,0  1H 

0905 

32023303 

DB 

32H,02H,33H,03H 

0909 

34043505 

DB 

34H, 04H,35H,05H 

090D 

36063707 

DB 

36H,06H,37H,07H 

091  1 

38083909 

DB 

38H ,08H,39H,09H 

0915 

4  10A420B 

DB 

41H ,0AH,42H,0BH 

0915 

430C440D 

DB 

43H,0CH,44H,0DH 

0  9 1  D 

450E460F 

DB 

45H,0EH,46H,0FH 

SUBBOUTINE 

TO  LOAD  THE  ADD.  IN  THE  HL  REGISTER 

INTO  THE  FIRST  FOUR  PRINT  POSITIONS. 

0921 

7C  HLSTK :  MOV 

A,  H  ;GET  H  REGISTER 

0922 

E6F0 

ANI 

OFOH 

MASK  OFF  LON  NIBBLE 

0924 

OF 

RRC 

0925 

OF 

RRC 

0926 

OF 

RRC 

0927 

OP 

RRC 

ROTATE  INTO  LON  NIEELE 

0928 

CDBC08 

CALL 

CCNAS 

CONVERT  TO  ASCII 

0S2B 

320020 

STA 

CHR1 

LOAD  INTO  CHR 1 

0  92E 

1C 

MOV 

A,  H 

GET  H  REGISTER 

0  S2F 

EoOP 

ANI 

OFH 

MASK  OFF  HIGH  NIBELE 

093  1 

CDBC08 

CALL 

CCNAS 

CONVERT  TO  ASCII 

0934 

320120 

STA 

CHR2 

LOAD  INTO  CHR2 

0937 

7D 

MOV 

A,  L 

GET  L  REGISTER 

0  S38 

E6P0 

ANI 

OFOH 

MASK  OFF  ION  NIBELE 

0  93  A 

OF 

RRC 

0  93B 

OF 

RRC 

0  93C 

OF 

RRC 

053D 

OF 

RRC 

ROTATE  INTO  LOW  NIEELE 

093  F 

CDBC08 

CALL 

CCNAS 

CONVERT  TO  ASCII 

0941 

320220 

STA 

CHR3 

LOAD  INTO  CHR3 

0  944 

7D 

MOV 

A,  L 

GET  L  REGISTER 

0945 

E6  OF 

ANI 

OFH 

MASK  OFF  HIGH  NIBELE 

0947 

CDBC08 

CALL 

CCNAS 

CONVERT  TO  ASCII 

0  94  A 

320320 

STA 

CHR4 

LOAD  INTO  CHR4 

0  94D 

C  9 

RET 

SUBROUTINE 

TO  RECEIVE  FOUR  ASCII  CHARACTERS, 

CONVERT  THE  NUMBER  TO  HEX,  AND  STORE  IT 

IN  THE  HL 

REGISTER. 

BECAUSE  OF 

THE  ERROR 

EXIT,  THIS  SUBROUTINE 

CAN  ONLY  BE  CALLED  BY  THE  MAIN  PROGRAM. 

0  94E 

CDC701  GT ADD:  CALL 

CHKEY 

;  READ  KEYBOARD 

0951 

CD9D08 

CALL 

CCNHX 

{CONVERT  CHARACTER  TO  HEX 

0954 

DA8 109 

JC 

ERX 

{ERROR  EXIT 

0  957 

07 

RLC 

0958 

07 

RLC 

0959 

07 

RLC 

0  95  A 

07 

RLC 

;  MOVE  TO  HIGH  ORDER  NIBBLE 

095B 

67 

MOV 

H,  A 

;  PUT  IN  H  REGISTER 

. 
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0  95C 

CDC701 

CALL 

CHKEY 

REAL  KEYECARD 

095F 

CD9D08 

CALL 

CONHX 

CONVERT  TO  HEX 

0962 

DA8109 

JC 

ERX 

ERROR  EXIT 

0965 

B4 

ORA 

H 

0966 

67 

MOV 

H, 

A 

MOVE  TO  LCW  ORDER  NIBBLE 

0967 

CDC701 

CALL 

CHKEY 

READ  KEYBOARD 

0961 

CD9D08 

CALL 

CONHX 

CONVERT  CHARACTER  TO  HEX 

0  96D 

DA 8  1 09 

JC 

ERX 

ERROR  EXIT 

0970 

07 

RLC 

0971 

07 

RLC 

0972 

07 

RLC 

0973 

07 

RLC 

MOVE  TO  HIGH  ORDER  NIBBLE 

0974 

6F 

MOV 

Lr 

A 

PUT  IN  L  REGISTER 

0975 

CDC701 

CALL 

CHKEY 

READ  KEYBOARD 

0970 

CD9D08 

CALL 

CONHX 

CONVERT  TO  HEX 

097B 

DA8109 

JC 

ERX 

ERROR  EXIT 

0  97E 

B5 

ORA 

L 

097F 

6F 

MOV 

L, 

A 

MOVE  TO  LCW  ORDER  NIBBLE 

0980 

C9 

RET 

0981 

33 

ERX: 

I  NX 

SP 

0982 

33 

I  NX 

SP 

jRESTORE  THE  STACK 

0983 

C39E09 

• 

JMP 

ERROR 

; ERROR  EXIT 

• 

; SUBROUTINE 

TO 

ADD  21 

TO  THE  HI  REGISTER 

0986 

D5 

AD2 1 : 

PUSH 

D 

0987 

111500 

LXI 

D, 

21 

0  9  8  A 

19 

DAD 

D 

;  HL  +  DE 

0  98E 

D 1 

POP 

D 

0  9  SC 

C9 

• 

RET 

•SUBROUTINE 

TO 

INCREMENT  DE  21  TIMES 

0  98D 

F5 

INDE: 

PUSH 

PSW 

0  98  E 

E  5 

POSH 

H 

098F 

211500 

LXI 

Hr 

21 

0992 

19 

DAD 

D 

0993 

EB 

XCHG 

0994 

El 

POP 

H 

0995 

FI 

PCP 

PSW 

0996 

C9 

• 

RET 

•SUBROUTINE 

TO 

ADD  882  TO  THE  HI  REGISTER 

0997 

D5 

AD882: 

PUSH 

D 

0998 

117203 

LXI 

Dr 

882 

099B 

19 

DAD 

D 

099C 

D 1 

POP 

D 

099D 

C9 

• 

RET 

•SUBROUTINE 

TO 

PRINT  ERROR  MESSAGE 

099E 

CD000A 

ERROR : 

CALL 

HOME 

; LIN E  FEED 

0  9  A 1 

CD260A 

CALL 

RETN 

; C ARRI AGE  RETURN 

0  9A4 

CD9D0A 

CALL 

PRIMM 

; PRINT  MESSAGE 

09A7 

45  52524F 

DE 

'ERROR 

i 

0  9  AB 

52 

0  9AC 

00 

DB 

00H 

’ 


p 
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09AD  C33901 


JMP  KEYB  ;  RETURN 

*  * 

*  STEPPES  KOTOR  CONTROL  PROGRAMS  * 

*  * 

PRPOS-  ADDRESS  IN  THE  STEPPER  MOTOR 

TABLE  WHICH  CORRESPONDS  TO  THE 
PRESENT  PRINTHEAD  POSITION. 

POINT-  ADDRESS  IN  THE  PRINT  STACK 
WHICH  CORRESPONDS  TO  THE 
PRESENT  PRINTHEAD  POSITION. 

STEPPER  MOTOR  DRIVE  SIGNALS 


09B0 

06  0 AO  90  5 

DB 

06H ,0AH,09H,05H 

0SE4 

06CA0905 

STEP:  DB 

06H,0AH, 09H,05H 

0  SB  8 

060A0905 

DB 

06H#0AH# 09H , 0  5H 

0  SBC 

06  0 AO 90  5 

DB 

06H,0AH,09H,05H 

OSCO 

060A0905 

DB 

06H, OAH, 09H, 05H 

0  SC4 

0  60A0905 

DB 

06H,0AH,09H,05H 

0  SC  8 

060A0905 

DB 

06H , OAH,  09H,05H 

OSCC 

06  OA  090  5 

DB 

• 

06H,0AH,09Hr05H 

; SUBROUTINE 

TO  MOVE  THE  PRINTHEAD 

;  ONE  POSITION  T'0  THE  LEFT 

09D0 

E5 

MOVL:  PUSH 

H  ; STORE  HL  REGISTERS 

;  PCINT  AT 

NEXT  CHARACTER  IN  PRINT  STACK 

09D1 

2A1220 

LHLD 

POINT  ;CONTENTS  OF  PCINT  LOADED 

0  9D4 

2B 

DCX 

H 

09D5 

221220 

SHLD 

PCINT  ; DECREMENT  POINT 

;  POINT  AT 

NEXT  STEPPER  MOTOR  SIGNALS 

09D8 

2A1420 

LHLD 

PRPOS  ; LOAD  PRINT  POSITION 

0  9DB 

2B 

DCX 

H  ; MOVE  ONE  LOCATION  LEFT 

0  9DC 

221420 

SHLD 

PRPOS 

;  OUTPUT  STEPPER  MOTCR  CONTROL  SIGNALS 

;  AND  DELA7 

20  MSEC. 

0  9DF 

CDAOOB 

CALL 

DEL20  ;  DEL AY  20  MSEC. 

09E2 

3E00 

M  VI 

A,  00H 

0  9E4 

D304 

OUT 

STPER  ;TURN  OFF  STEPPER  CONTROLS 

09E6 

El 

POP 

H  ;  RESTO  RE  HL  REGISTERS 

09E7 

C9 

RET 

• 

.•SUBROUTINE 

TO  MOVE  THE  PRINTHEAD 

; ON E  POSITION  TO  THE  RIGHT 

09E8 

E5 

MOVE:  PUSH 

H  ; STORE  HL  REGISTERS 

;  PCINT  AT 

NEXT  CHARACTER  IN  PRINT  STACK 

09E9 

2A1220 

LHLD 

PCINT  ; CONTENTS  OF  POINT  LOADED 

0  9EC 

23 

INX 

H 

0  9ED 

221220 

SHLD 

POINT  ;INCREMENT  POINT 

09F0  2A1420 
09E3  23 
09F4  221420 


POINT  AT 
LHLD 
INX 
SHLD 


NEXT  STEPPER  MOTOR  SIGNALS. 

PRPOS  ; LOAD  PRINT  POSITION 
H  ;MOVE  ONE  LOCATION  RIGHT 

PRPOS 


OUTPUT  STEPPER  MOTOR  CONTROL  SIGNALS 


I 


IK 


' 
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;  AND  DELAY  20  MSEC. 


09E7 

CDAOOE 

CALL 

DEL20 

; DEL AY  20  MSEC. 

0  SEA 

3E00 

M  VI 

A, 

0  OH 

09FC 

D30  4 

OUT 

STPER 

; T UR N  OFF  STEPPER  CONTROLS 

0  9F  E 

El 

POP 

H 

; RESTORE  HL  REGISTERS 

09FP 

C9 

RET 

SUBROUTINE 

TO 

MOVE 

PRINTHEAD  TC  HOME  POSITION 

NOTE 

:  IE  THE  PRINTH 

EAD  IS  ALREADY  IN  THE  HOME 

POSTION, 

THIS 

SUBROUTINE  WILL  CAUSE  A 

LINE 

FEED. 

THE 

HOME  PGITICN  IS 

2  POITIONS  TO  THE  LEFT 

OE  THE  END 

OF 

THE  C 

ARRIAGE. 

THE 

EOT  SWITCH 

CLOSES  WHEN  THE  PRINTHEAD 

REACHES  THE 

END  OF 

THE  CARRIAGE. 

0  AO  0 

E5 

HOME: 

PUSH 

H 

;  STORE  HL  REGISTERS 

0  AO  1 

CDE809 

H0ME1 

:  CALL 

MOVE 

; MOVE  PRINTHEAD  RIGHT 

1 

+ 

READ 

EOT 

.•CHECK  EOT  SWITCH 

0A04 

1  D5 

+ 

PUSH 

E 

;  S  A VE  DE  REGISTERS 

0A05 

1  1601 

♦ 

M  VI 

Dr 

EOT 

;  STORE  SWITCH  NUMBER  IN  D 

0  A07 

1  DB06 

-f 

IN 

SWCH 

;  R EAD  THE  SWITCH  INPUTS 

0  A09 

1  IE 

♦  NO: 

RAR 

‘.ROTATE  DO  INTO  CARRY 

OAOA 

1  15 

+ 

DCR 

D 

;  DECREMENT  COUNTER 

0  AO  E 

1  C2090A 

+ 

JNZ 

NO 

;  NOT  CORRECT  SWITCH  YET 

OAOE 

1  D 1 

POP 

D 

;  RESTORE  EE  REGISTERS 

OAOE 

DAO  10 A 

JC 

HOME1 

; EOT  NOT  CLOSED  YET 

0  A 1 2 

CDD009 

CALL 

MOVL 

;  PRINTHEAD  TO  POSITION  A 

0  A 1 5 

CDD009 

CALL 

MO  VL 

;  PRI NTHEAD  TO  HOME 

RESET  POINTERS 

0  A  18 

211220 

LXI 

Hr 

CHR1+18D  ; INITIALIZE  POINT 

0  A  1 E 

221220 

SHLD 

POINT 

;  INITIALIZE  POINT 

0  A  IE 

21C609 

LXI 

H, 

STEP+18D 

0A21 

221420 

SHLD 

PRPOS 

; I NITI ALIZE  PRPOS 

0  A24 

El 

POP 

H 

;  RESTORE  HL  REGISTERS 

0  A25 

C9 

RET 

SUBROUTINE 

TO 

MOVE 

PRINTHEAD  PROM  HOME 

POSITION  TC 

FI 

RST  PRINT  POSITION. 

EIRST  PRINT 

POITION  IS  18  POSITIONS  TO 

THE  LEFT 

OF 

THE  HOME  POSITION. 

0  A26 

D5 

BETN : 

PUSH 

D 

; STORE  DE  REGISTERS 

0  A27 

1612 

M  VI 

Dr 

18D 

; LOAD  COUNTER  WITH  18 

0A29 

CDD009 

MORE: 

CALL 

MOVL 

; MOVE  PRINTHEAD  LEFT 

0A2C 

15 

DCR 

D 

; DECREMENT  COUNTER 

0  A2D 

C2290A 

JNZ 

MORE 

;  NOT  AT  POSITION  1  YET 

0A30 

D1 

POP 

D 

;  RESTORE  DE  REGISTERS 

0  A3  1 

C9 

RET 

. 


. 
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*  * 

*  PRINTER  CONTROL  PROGRAMS  * 

*  * 


SUBROUTINE  TO  PRINT  THE  CHARACTER  WHICH  IS 
POINTED  TO  BY  POINT.  THE  PRINTEEAD  IS  THEN 
SHIFTED  ONE  POSTION  TO  THE  RIGHT. 


0A32 

E5 

PRINT:  PUSH 

K  ; STORE  HI  REGISTERS 

0  A33 

2A1220 

L  HID 

POINT  ; PCI  NT  HI  AT  DATA 

0  A3  6 

7E 

MOV 

A, 

M  ; LCAD  ASCII  DATA  INTO  A 

0  A37 

D305 

OUT 

ASCII  ; OUTPUT  TO  CHAR  GENERATOR 

• 

• 

COUNTER 

NUMBER  0  IS  USED 

• 

t 

TO  GENERATE 

THE  PRINT  STROEE 

0  A3  S 

3E00 

M  VI 

A# 

00H 

0A3E 

D304 

OUT 

STPER  ;CLEAR  FLIP  PLOP 

0A3D 

3E40 

M  VI 

A, 

40H 

0  A3F 

D304 

OUT 

STPER  ; ENABLE  FLIP  FLOP 

0  A4  1 

3E32 

M  VI 

A, 

32H 

0  A43 

D500 

OUT 

MODEA  ; SET  COUNTER  MODE 

0  A45 

3E2F 

M  VI 

A, 

2FH 

0A47 

D303 

OUT 

TIMAO  ; LOAD  LOW  ORDER  COUNT 

0  A4S 

3E0D 

M  VI 

A  , 

ODH 

0  A4B 

D303 

OUT 

TIMAO  ; LOA D  HIGH  ORDER  COUNT 

• 

• 

START  PRINT 

STROBE 

0A4D 

3ZC0 

M  VI 

A, 

OCOH 

0A4E 

D304 

OUT 

STPER  ; TRIGGER  STROBE 

• 

V 

CHECK  TIMER 

0A51 

1 

+CHKB:  READ 

TEST  ; CHECK  TIMER 

0A51 

1  D5 

4 

PUSH 

D  ;  S A VE  DE  REGISTERS 

0A52 

1  1608 

4 

M  VI 

Dr 

TEST  ; STORE  SWITCH  NUMBER  IN  D 

0A54 

1  DB06 

+ 

IN 

SWCH  ; READ  THE  SWITCH  INPUTS 

0A56 

1  IP 

♦  NO: 

R  AR 

; R OT AT E  CO  INTO  CARRY 

0A57 

1  15 

4 

DCR 

D 

; DECREMENT  COUNTER 

0  A58 

1  C2560A  + 

JNZ 

NO  ;  NOT  CORRECT  SWITCH  YET 

0A5B 

1  D 1 

4 

POP 

D  ; RESTO BE  EE  REGISTERS 

0  A5C 

DA  5  1 0 A 

JC 

CHKB  ; TI KER  NOT  DONE 

• 

• 

TIMER  IS 

FINISHED 

• 

• 

GENERATE 

6 

MSEC  DELAY 

• 

f 

TO  ALLOW 

THE  PRINTHEAD  TO  COOL  OFF 

0A5E 

3E00 

M  VI 

A  r 

00H 

0A61 

D304 

OUT 

STPER  ; CLEAR  FLIP  FLOP 

0  A63 

3E40 

M  VI 

A, 

40H 

0A65 

D304 

OUT 

STPER  ;ENABLE  FLIP  FLOP 

0A67 

3E78 

M  VI 

A, 

78H 

0A6S 

D300 

OUT 

MODEA  ; SET  COUNTER  MODE 

0A6B 

3EDC 

M  VI 

Ar 

ODCH 

0  A6D 

D302 

OUT 

TIMA  1  ; LOAD  LOW  ORDER  COUNT 

0  A6E 

3E05 

M  VI 

A  r 

05H 

0A71 

D302 

OUT 

TIMA  1  ;LOAD  HIGH  ORDER  COUNT 

• 

• 

CHECK  TIMER 

0  A73 

1 

4CHKC:  READ 

TEST  ;CHECK  THE  TIMER 

0A73 

1  D5 

4 

PUSH 

D  ; S AVE  DE  REGISTERS 

’ 
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0A74 

1  1608 

+ 

M  VI 

D, 

TEST 

; STORE  SWITCH  NUMBER  IN  D 

0A76 

1  DE06 

+ 

IN 

SWCH 

;  READ  THE  SWITCH  INPUTS 

0A76 

1  IF 

+  N0: 

BAR 

;  ROT  ATE  DO  INTO  CARRY 

0A79 

1  15 

+ 

DCR 

D 

; DECRE  ME  NT  COUNTER 

0  A7  A 

1  C2780A 

+ 

JNZ 

NO 

; N OT  CORRECT  SWITCH  YET 

0A7E 

1  D  1 

♦ 

POP 

D 

; RESTORE  EE  REGISTERS 

0A7E 

DA730A 

JC 

CHKC 

; TIMER  NOT  DONE 

TIMER  IS 

DONE,  MOVE  PRINTHEAD 

0A81 

CDE809 

CALL 

MO  VR 

; MOVE  PRINTHEAD  RIGHT 

0A84 

El 

POP 

H 

; RESTORE  HI  REGISTERS 

0A85 

C9 

RET 

SUBROUTINE 

TO 

PRINT 

THE  ENTIRE  CONTENTS 

OF 

THE  PRINT 

STACK. 

THE  PRINTER 

IS  INITIALLY  IN  THE  HOME  POSITION 

0  A86 

C5 

PSTAK:  POSH 

E 

; STORE  EC  FEGISTERS 

0  A87 

E5 

PUSH 

H 

; STORE  HL  REGISTERS 

0  A88 

CD260A 

CALL 

RETN 

; MOVE  TC  FIRST  POSITION 

0  A8B 

0612 

M  VI 

B, 

18D 

; LOAD  COUNTER 

0A8D 

CD320A 

MOB 

:  CALL 

PRINT 

; PRI NT  ONE  CHARACTER 

0A9G 

05 

DCR 

E 

;  DECREMENT  COUNTER 

0A91 

C28D0A 

JNZ 

MOR 

; FULL  LINE  NOT  PRINTED  YET 

PRINTING 

IS 

FINISHED,  RETURN  PRINTHEAD  TO 

• 

9 

THE  HOME 

POSITION 

AND  CLEAR  THE  PRINT  STACK 

0A94 

CDOOOA 

CALL 

HOME 

;LINE  FEED 

0A97 

CDB70A 

CALL 

CLPSK 

;CLEAR  THE  PRINT  STACK 

0  A9  A 

El 

POP 

H 

; RESTORE  HL  REGISTERS 

0A9B 

Cl 

POP 

B 

;  RESTO  RE  EC  REGISTERS 

0A9C 

C9 

RET 

SUBROUTINE 

TO 

PRINT 

THE  DATA  IMM.  FOLLCWING 

THE  CALL  INSTRUCTION.  THE  IMM.  DATA  MUST 

BE 

FOLLOWED 

BY  A  ZERO  BYTE,. 

0A9D 

E3 

PBIMM :  XTHL 

.-EXCHANGE  STACK  WITH  HL 

0A9E 

EB 

XCHG 

; EXCHANGE  HL  AND  DE 

0A9F 

E5 

PUSH 

H 

.-STORE  CONTENTS  OF  DE 

0  AAO 

2A1220 

LHLD 

POINT 

; POINT  HL  AT  PRINT  STACK 

DE  NOW  POINTS  TO 

THE  ADDRESS  AFTER  THE  CALL 

HL  POINTS 

AT  THE 

PRINT  STACK 

0  A  A3 

1 A 

PMOBE:  LEAX 

D 

; READ  IMMEDIATE  DATA 

0  AA4 

FEOO 

CPI 

QOH 

;CCMPARE  KITH  ZERO 

' 

VALID  ASCII 

DATA, 

THEREFORE  PRINT  IT 

0  A  A6 

CAB20A 

JZ 

EXP 

;  PRINTING  IS  FINISHED 

0  AA9 

77 

MOV 

M, 

A 

;  STORE  IN  PRINT  STACK 

0  AA  A 

CD  320 A 

CALL 

PRINT 

; PRI NT  THE  CHARACTER 

OAAE 

23 

I  NX 

H 

OAAE 

13 

INX 

D 

.-POINT  AT  NEW  DATA 

OAAE 

C3A30A 

JMP 

PMORE 

A  ZERO  BYTE 

HAS  BEEN  FOUND  IN  THE  DATA 

TABLE.  THIS 

SIGNIFIES  THE  FND  OF  THE 

TABLE.  THE 

NEXT  INSTRUCTION  EEGINS  AT 

THE  ADDRESS 

IMMEDIATELY  AFTER  THE 

ZERO  BYTE. 

0AB2 

13 

EXP 

:  INX 

D 

; PCI  NT  AT  NEXT  INSTRUCTION 

’ 
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0  AE3 

EB 

XCHG 

; EXCHANGE  HL  AND  DE 

;  HL 

NOH  CONTAINS  THE  PROPER  RETURN  AEERESS 

0  AB4 

D 1 

POP 

D 

;  RESTO  RE  DE  REGISTER 

;  PUT 

RETURN 

ADDRESS 

ON  THE  STACK 

0  AB5 

E3 

XTHL 

; STO RE  NEW  RETURN  ADDRESS 

0  AE6 

C9 

• 

RET 

9 

;  SUBROUTINE  TO 

CLEAR 

THE  PRINT  STACK 

0AE7 

C5 

CLPSK: 

PUSH 

E 

0  AB8 

E5 

PUSH 

H 

0  AB9 

0612 

MVI  B , 

18D 

; LOAD  COUNTER  WITH  18 

0  ABB 

210020 

LXI  H, 

CHR1 

; POINT  HL  AT  PRINT  STACK 

0  ABE 

3600 

NCLR : 

MVI  M, 

00H 

; CLEAR  LOCATION 

0  ACO 

23 

INX 

H 

jINCREMENT  POINTER 

0  AC  1 

05 

DCR 

E 

; DECREMENT  COUNTER 

0  AC2 

C2BE0A 

JNZ 

NCLR 

;NOT  ALL  CLEARED  YET 

0  AC5 

El 

POP 

H 

0  AC6 

Cl 

POP 

B 

0AC7 

C9 

• 

RET 

; SUBROUTINE  TO 

ALLOW 

PRINTING  CN  THE  PRINTER 

; CR  (CTRL  M)  HILL  CAUSE  CARE  RET  AND  LINE  FEED 

;ES  (CTRL  H)  HILL  CAUSE  A  BACKSPACE 

; ETX  (CTRL  C) 

RETURN 

CONTROL  TO  THE  MONITOR 

0  AC8 

CDOOOA 

PET: 

CALL 

HOME 

; LIN E  FEED 

0  ACB 

CD260A 

CALL 

RETN 

; C  ARRI AGE  RETURN 

;  A  CHARACTER 

IS  RECEIVED  FROM  THE  KEYBOARD 

0  ACE 

CDC701 

RECEV: 

CALL 

CHKEY 

;  READ  KEYBOARD 

0  AD  1 

FEOD 

CPI 

CRET 

0  AD3 

CAE  30 A 

JZ 

CARET 

; C ARRI AG E  RETURN 

;  NOT 

A  CARRIAGE  RETURN 

0  AD6 

FE08 

CPI 

BAKSP 

Q  AD8 

CAECOA 

JZ 

BACKS 

;  BACKSPACE 

;  NOT 

A  BACKSPACE 

0  AEB 

FEQ3 

CPI 

ETX 

0  ADE 

CA3901 

JZ 

KEYB 

.‘RETURN  FROM  ROUTINE 

0  AE  0 

C3CE0A 

JMP 

RECEV 

; RECEIVE  ANOTHER  CHARACTER 

0  AE3 

CDOOOA 

CARET: 

CALL 

HOME 

.‘LINE  FEED 

0  AE6 

CD260A 

CALL 

RETN 

;C ARRI AGE  RETURN 

0  AE9 

C3CE0A 

JMP 

RECEV 

; RECEI VE  ANOTHER  CHARACTER 

0  AEC 

CDD009 

EACKS: 

CALL 

MOVL 

; BACKSPACE 

0  AEF 

CDD009 

CALL 

MOVL 

0  AF2 

C3CE0A 

JMP 

RECEV 

; RECEIVE  NEXT  CHARACTER 

’ 
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*  * 

*  ANTENNA  CONTROL  PROGRAMS  * 

*  * 


SOEBCOIINE  TO  TURN  ON  A  SELECTEE  ANTENNA  RELAY 


0  AF5 

CDC701 

ANT 

• 

m 

CALL 

CHKEY  ;READ  KEYBOARD 

OAF  8 

FE20 

CPI 

•  •  ;IS  CHARACTER  A  SPACE 

OAF  A 

C29E09 

JNZ 

ERROR  .‘ERROR  EXIT 

• 

• 

A 

SPACE  HAS 

BEEN  RECEIVED  AFTER  THE  COMMAND 

• 

9 

NOW  RECEIVE 

AN  X  OR  A  Y 

OAED 

CDC70 1 

CALL 

CHKEY 

READ  KEYBOARD 

0  EOO 

FE58 

CPI 

'X' 

IS  CHARACTER  AN  X 

0E02 

C20A0B 

JNZ 

CY 

NOT  AN  X 

0  E05 

OE  00 

M  VI  C, 

00H 

RESET  FLAG 

0E07 

C3110B 

JMP 

GNUMB 

RECEIVE  ANTENNA  NUMBER 

0  EO A 

FE  59 

CY: 

CPI 

•  I* 

IS  CHARACTER  A  Y 

OEOC 

C29E09 

JNZ 

ERROR 

ERROR  EXIT 

0  EO  E 

OEFF 

M  VI  C, 

OFFH 

SET  FLAG 

• 

• 

C 

IS  SET  IF 

Y  WAS  RECEIVED 

• 

f 

c 

IS  RESET 

IF  X  WAS  RECEIVED 

• 

• 

NOW  RECEIVE 

THE  ANTENNA  NUMBER 

0  El  1 

CDC70 1 

GNUMB 

:  CALL 

CHKEY  -.READ  KEYBOARD 

0 El  4 

CD9D08 

CALL 

CONHX 

;CCN VERT  TO  DECIMAL 

0  E 1 7 

DA9E09 

JC 

ERROR  ; ERROR  EXIT 

0  E 1  A 

07 

RLC 

0  B 1 B 

07 

RLC 

0  E 1  C 

07 

RIC 

OB1D 

07 

RLC 

;  ROT ATE  INTO  MS  NIEBLE 

OBI  E 

47 

MOV  B, 

A 

[STORE  IN  REG  B 

• 

• 

FIRST  DIGIT 

HAS  BEEN  RECEIVED. 

0  El  F 

CDC701 

CALL 

CHKEY 

[READ  KEYBOARD 

0  E22 

CD9D08 

CALL 

CONHX 

[CONVERT  TO  DECIMAL 

0B25 

DA9E09 

JC 

ERROR 

[ERROR  EXIT 

• 

• 

A 

CONTAINS 

THE  LS  NIBBLE 

• 

• 

B 

CONTAINS 

THE  MS  NIBBLE 

0  E28 

BO 

ORA  B 

[FORM  2  DIGIT  NUMBER 

0  E29 

CD6408 

CALL 

DECHX 

[CONVERT  TO  HEX 

0B2C 

47 

MOV  B , 

A 

[TEMPORARILY  STORE  IN  B 

• 

t 

CHECK  IF  X 

OR  Y  ANTENNAS 

0E2D 

79 

MOV  A, 

c 

[CHECK  FLAG 

0  B2E 

A7 

ANA  A 

[SET  FLAGS 

0  E2F 

C23A0E 

JNZ 

OUTY 

9 

X 

ANTENNAS 

ARE  TO  BE  SELECTEE 

0B32 

78 

MOV  A , 

B 

[PUT  CHARACTER  IN  A 

• 

9 

SET  THE  X/Y 

CONTROL  LINE 

0E33 

F680 

ORI 

80H 

[ENABLE  X  ANTENNAS 

0  E35 

D310 

OUT 

ANTA 

[TURN  ON  RELAY 

0  E37 

C33D0B 

JMP 

INADC 

• 

9 

Y 

ANTENNAS 

ARE  TO  BE  USED 

0  E3  A 

78 

OUTY: 

MOV  A, 

B 

[PUT  CHARACTER  IN  A 

0E3B 

D310 

OUT 

ANTA 

[TURN  ON  RELAY 

;  THE  ANTENNA  HAS  BEEN  TURNED  ON 


!' 

7, 


. 

' 
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0E3B 

CD9D0A 

INACC:  CALL 

PRIMM 

0E40 

3D 

DB 

i  =  t 

0E4  1 

00 

DB 

00H 

• 

• 

DELAY  TIME 

FOR  RADIO  SETTLING  (1  MSEC) 

0  E4  2 

1 17D00 

LXI 

D, 

1 25D  ; LCAD  COUNTER 

0  E45 

IB 

DELES:  DCX 

D 

0B46 

7B 

MOV 

A, 

E 

0  E47 

A7 

ANA 

A 

0  E48 

C2450B 

JNZ 

DELMS 

• 

• 

DELAY  IS 

OVER 

• 

START  CONVERSION 

0  E4B 

D312 

OUT 

STCON  ; START  CONVERSION 

• 

9 

WAIT  EOR 

AN 

EOC  SIGNAL 

0E4D 

1 

♦RDADC:  READ 

EOC  .‘CONVERSION  DONE? 

0  E4D 

1  D5 

+ 

PUSH 

D  ; S A VE  DE  REGISTERS 

0  E4E 

1  1604 

+ 

M  VI 

D, 

EOC  ; STORE  SWITCH  NUMBER  IN  D 

0E50 

1  DB06 

+ 

IN 

SWCH  ; READ  THE  SWITCH  INPUTS 

0  E52 

1  IE 

♦  NO : 

EAR 

;RCTATE  DO  INTO  CARRY 

0B53 

1  15 

-*• 

DCR 

D 

; DECREMENT  COUNTER 

0E54 

1  C2520B 

JNZ 

NO  ; NOT  CORRECT  SWITCH  YET 

0E57 

1  D 1 

♦ 

POP 

D  ; RESTO  RE  EE  REGISTERS 

0E58 

D24D0E 

JNC 

RDADC  ; CHECK  AGAIN 

• 

9 

CONVERSION 

IS  FINISHED 

0E5E 

DB  1 3 

IN 

ADCIN  ; READ  A/E  CONVERTER 

0E5D 

A7 

ANA 

A 

; SET  FLAGS 

0B5E 

F2630E 

JP 

NNEG 

• 

9 

SIGNAL  IS 

NEGATIVE,  SET  OUTPUT  TO  0 

• 

9 

NOTE:  THE 

INPUT  FROM  THE  A/D 

• 

9 

IS 

COMPLEMENTARY. 

0B6  1 

3E7E 

K  VI 

A  , 

7FH 

0  E63 

2F 

NNEG:  CMA 

; 0 UTPUT  IS  COMPLEMENTARY 

0E64 

D68  0 

SUI 

80H 

• 

9 

INPUT  IS 

NOW  A  HEX  NUMBER  FRCM  00  TO  7F 

0  B66 

47 

MOV 

B, 

A  ;  STORE  IN  REG  B 

• 

9 

MULTIPLY 

BY 

CORRECT  FACTOR  TO  OBTAIN 

• 

9 

THE  VALUE 

OF  THE  INPUT  IN  VOLTS 

0E67 

0E65 

M  VI 

c. 

65H  ; LCAD  MULT.  FACTOR 

0E69 

CD4508 

CALL 

MULT8  MULTIPLY 

0  E6C 

78 

MOV 

A, 

E  ; LC AD  MS  BYTE 

0B6D 

CD7608 

CALI 

HXDEC  ; CON VERT  TO  DECIMAL 

0E70 

47 

MOV 

B, 

A  ; STORE  IN  REG  B 

0E71 

E6F0 

ANI 

OFOH  ; M ASK  OFE  LS  DIGIT 

0E73 

OF 

RRC 

0E74 

OF 

ERC 

0E75 

OF 

RRC 

0B76 

OF 

RRC 

0E77 

CDBC08 

CALL 

CONAS  ; CONVERT  TO  ASCII 

0  E7  A 

2A1220 

LHLD 

POINT 

0E7D 

77 

MOV 

Hr 

A  ; LOAD  PRINT  STACK 

0B7E 

CD320A 

CALL 

PRINT  ; PRINT  MS  DIGIT 

0B8  1 

3E  2E 

M  VI 

A, 

i  i 
• 

0B83 

23 

I  NX 

H 

0  E84 

77 

MOV 

Mr 

A  .‘LOAD  DECIMAL  POINT 

0  E85 

CD320A 

CALL 

PRINT  ; PRINT  DECIMAL  POINT 

■ 


) 


I 
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0E88 

78 

MOV 

A, 

B 

;  LCAD  NUMEFR  AGAIN 

0B89 

E6  OF 

ANI 

OFH 

; MASK  OFF  MS  DIGIT 

0B8E 

CDBC08 

CALL 

CONAS 

; CONVERT  TO  ASCII 

0E8E 

23 

I  NX 

H 

0E8F 

77 

MOV 

M, 

A 

; LCAD  PRINT  STACK 

0E90 

CD320A 

CALL 

PRINT 

; PRINT  LS  DIGIT 

0E93 

CD9D0A 

CALL 

PRIMM 

0E96 

20564F4C 

DB 

•  VOLTS' 

0E9A 

5453 

0E9C 

00 

DB 

00H 

0E9D 

C33901 

JMP 

KEYB 

; RETURN 

********************************************** 
#  * 

*  HARDWARE  TIMER  DEIAYS  * 

*  * 
********************************************** 

SUBROUTINE  TO  GENERATE  20  MSEC  DELAY 
STEPPER  CONTROLS  ARE  ALSO  OUTPUT 


0  BA  0 

3E00 

DEL20: 

M  VI 

A  r  00H 

0EA2 

D304 

OUT 

STPER 

; CLEAR  FLIP  FLOP 

0  EA  4 

3E40 

M  VI 

A,  40H 

0EA6 

B6 

ORA 

M 

;LCAD  STEPPER  CONTROLS 

0EA7 

D304 

OUT 

STPER 

• 

t 

COUNTER 

NUMBER  1 

IS  USED 

0EA9 

3E78 

M  VI 

A,  78H 

OBAB 

D300 

OUT 

MODEA 

; SET  COUNTER  MODE 

OEAD 

3E88 

M  VI 

A,  88H 

OEAF 

D302 

OUT 

TIMA  1 

; LOAD  LOW  ORDER  COUNT 

0  EE  1 

3E13 

M  VI 

A,  13H 

0  BB3 

D302 

OUT 

TIMA  1 

; LOAD  HIGH  ORDER  COUNT 

• 

• 

WAIT  FOR 

TIMER  TO 

FINISH 

0  BB5 

1 

+CHKD: 

READ 

TEST 

;  READ  TIMER 

0EB5 

1  D5 

+ 

POSH 

D 

;  S  AVE  DE  REGISTERS 

0EB6 

1  1608 

+ 

M  VI 

D ,  TEST 

.-STORE  SWITCH  NUMBER  IN  D 

0  EE8 

1  DEO  6 

+ 

IN 

SUCH 

; READ  THE  SWITCH  INPUTS 

OBBA 

1  IF 

+NO: 

RAR 

; ROT AT E  DO  INTO  CARRY 

0  EBE 

1  15 

+ 

DCR 

D 

; DECREMENT  COUNTER 

OEBC 

1  C2BA0E  + 

JNZ 

NO 

; NOT  CORRECT  SWITCH  YET 

0  EBF 

1  D 1 

+ 

POP 

D 

; RESTORE  EE  REGISTERS 

0  ECO 

DAB50E 

JC 

CHKD 

; TIMER  NOT  FINISHED 

0  EC3 

C9 

RET 

********************************************** 
*  * 

*  CB  RADIO  CONTROL  PROGRAMS  * 

*  * 
********************************************** 

SUBROUTINE  TO  SET  THE  CHANNELS  TO  EE  SCANNED 
ND AT  IS  SET  FOR  THE  CASSETTE  ROUTINE 
CHANNEL  NUMBERS  ARE  LOADED  INTO  THE  EUFFER 
CR  AND  EOF  ARE  LOADED  INTO  THE  BUFFER 
SPACE  CHARACTERS  ARE  ALSO  LOADED  INTO  THE 
BUFFER  EETBEEN  DATA  SETS 


•  ,  .  -.-r, 
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CHN?  CONTAINS  THE  CHANNEL  CODES 

CH?  IS  THE  POSTION  IN  THE  PRINT  BUFFER 

RESERVED  FOR  THE  CHANNEL  NUMBERS 

CNUM  KILL 

BE  LOADED  KITH  THE  NUMBER 

OF  ACTIVE  CHANNELS 

0  EC4 

013620  SAC 

:  LXI 

B,  CHN 1 

0EC7 

116921 

LXI 

D,  CHI 

OECA 

AF 

XR  A 

A 

OECE 

321B21 

STA 

CNUM  ; CLE AR  CHANNEL  NUMBER 

OECE 

CEC701 

CALL 

CHKEY  ; READ  KEYECARD 

0  BE  1 

FE20 

CPI 

1  •  ;IS  CHARACTER  A  SPACE 

0  ED3 

C29E09 

JNZ 

ERROR  ; NOT  A  SPACE 

SPACE  HA 

S  BEEN  RECEIVED, 

RECEIVE 

THE  CHANNEL  NUMBERS. 

0  EE6 

CD880C  GCH 

:  CALL 

GCHAN  ; GET  CHANNEL 

0  ED9 

02 

STAX 

B  .-STORE  CHANNEL  CODE 

INCREMENT  NUMBER  OF  CHANNELS 

0  ED  A 

3A1E21 

LD  A 

CNUM 

0  BDD 

3C 

INR 

A 

OEDE 

321B21 

STA 

CNUM  ; INCREMENT  CHANNEL  COUNTER 

• 

• 

LOAD  CHANNEL  NUMBER  (ASCII)  INTO 

THE  PRINT  BUFFER 

0  EE  1 

3AC121 

LD  A 

CHS 

0  EE4 

12 

STAX 

D  ; STORE  MS  DIGIT 

0  EES 

13 

I  NX 

D 

0  EE  6 

3AC221 

LDA 

CH5+1 

0  EE9 

12 

STAX 

D  ; LOA D  IS  DIGIT 

• 

• 

POINT  DE 

AT  THE  NEXT  CHANNEL  DATA 

LOCATION 

IN  THE  PRINT  EUFFER. 

0  EEA 

CD8D09 

CALL 

INDE  ;I NCREMENT  DE  21  TIMES 

5  CHANNELS  STORED  YET? 

1 

NEGATE  THE  ADDRESS  OF  THE  FIFTH  CHANNEL  CODE 

0  EED 

213A20 

LXI 

H,  CHN5 

0  BE  0 

7C 

MOV 

A,  H 

OBf  1 

2F 

CMA 

0EE2 

67 

MOV 

H,  A 

0EE3 

7D 

MOV 

A,  L 

0  EE4 

2F 

CMA 

OEF  5 

6F 

MOV 

L,  A 

0  EP6 

23 

INX 

H  ; NEGATE  CHN5 

SUBTRACT 

THE  ADDRESS  OF  THE  FIFTH  CHANNEL 

CODE  FROM  THE  ADDRESS  OF  THE  PRESENT 

CHANNEL 

CODE. 

0EE7 

09 

DAD 

B  ; POI NT  ER-CHN5 

• 

f 

CHECK  THE  RESULT  OF  THE  SUETRACTION  _ 

0  EF8 

7C 

MOV 

A,  H 

OBF  9 

A7 

ANA 

A  ;  SET  FLAGS 

0  EFA 

C2050C 

JNZ 

CONI 

OBFD 

7D 

MOV 

A,  L 

0  EFE 

A7 

ANA 

A  ; SET  FLAGS 

0  EFF 

C2050C 

JNZ 

CONI 

• 

• 

ALL  5  CHANNELS  ARE  SET 

0C02 

C32A0C 

JMP 

SEPP  ; RETURN 

• 

• 

NOT  ALL 

FIVE  CHANNELS  HAVE  BEEN  SET, 

' 

• 
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• 

f 

POINT  BC  AT 

THE  NEXT  CHANNEL  CCDE  LOCATION 

0C05 

03 

CONI:  INX  B 

; INC RE ME NT  POINTER 

• 

• 

RECEIVE  THE 

NEXT  CHARACTER  FROM  THE  KEYBOARD 

0  CO  6 

CDC701 

CALL 

CHKEY  ; READ  KEYBOARD 

0  C09 

FE2C 

CPI 

IIS  CHARACTER  A  COMMA 

OCOB 

CAD60B 

JZ 

GCH  ;  READ  ANOTHER  NUMBER 

« 

A  COMMA  WAS 

NOT  RECEIVED,  CHECK  TO  SEE 

• 

9 

IF  IT  WAS  A 

PERIOD. 

OCOE 

FE2E 

CPI 

;IS  CHARACTER  A  PERIOD 

OCIO 

C29E09 

JNZ 

ERROR 

• 

• 

A  PERIOD  WAS 

RECEIVED,  THEREFORE  STORE  A 

• 

• 

NULL  CHARACTER  FOR  THE  CHANNEL  CODE. 

0  Cl  3 

AF 

CLRS:  Xfi  A  A 

.•CLEAR  ACCUMULATOR 

0  C  1 4 

02 

STAX  B 

; STORE  A  NULL  CHARACTER 

I 

ALL  5  CHANNELS  STORED  YET? 

9 

NEGATE  THE  ADDRESS  OF  THE  FIFTH  CHANNEL  CODE 

OC  15 

213A20 

LXI  H, 

CHN5 

0  C 1 8 

7C 

MOV  A, 

H 

OC  1  9 

2F 

CMA 

OC1A 

67 

MOV  H, 

A 

0  C 1  B 

7D 

MOV  A, 

L 

OC1C 

2F 

CMA 

OC1D 

6F 

MOV  L , 

A 

0  C 1 E 

23 

INX  H 

;  NEG AT  E  CHN5 

SUETRACT  THE 

ADDRESS  OF  THE  FIFTH  CHANNEL 

CODE  FROM  THE  ADDRESS  OF  THE  PRESENT 

CHANNEL  CODE 

. 

OC  1  E 

09 

DAD  B 

;  POINTEB-CHN5 

CHECK  THE  RESULT  OF  THE  SUBTRACTION 

0C20 

7C 

MOV  A, 

H 

OC21 

A7 

ANA  A 

;  SET  FLAGS 

0  C22 

C26E0C 

JNZ 

CON2 

0C25 

7D 

MOV  A  , 

L 

0C26 

A7 

ANA  A 

; SET  FLAGS 

0  C27 

C26E0C 

JNZ 

CON2 

ALL  5  CHANNELS  ARE  STORED 

WITH  EITHER 

CHANNEL  CODES  CR  NULL 

CHARACTERS. 

CALCULATE  THE  VALUE  FOR  NDAT 

0C2  A 

3A1B21 

SEPP:  LDA 

CNUM  ;LCAD  COUNTER 

0C2D 

47 

MOV  B  , 

A 

0  C2E 

0E2C 

M  VI  C, 

44  ; LOAD  CONSTANT 

;  MULTIPLY  THE 

NUMBER  OF  CHANNELS  BY  44 

;  AND  STORE  IN 

NDAT 

0  C30 

CD4508 

CALL 

MULT8 

0C33 

60 

MOV  H, 

B 

0C34 

69 

MOV  L, 

C 

0C35 

222120 

SHLD 

NDAT  ; SET  NDAT 

INITIALIZE  PRINTER  BUFFER 

POINT  DE  AT 

THE  CARRIAGE  CONTROL  LOCATION 

IN  THE  PRINT 

BUFFER 

0C38 

117721 

LXI  D, 

FLG1+3 

0C3B 

216821 

LXI  H  , 

TM1  +  6 

0C3E 

06QD 

M  VI  B  , 

ODH  ; LOAD  CARR  RETURN 

0C40 

3A1E21 

IDA  CNUM  ; LOAD  COUNTER 

• 
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0C43 

4F 

MOV  C ,  A 

• 

9 

BEGISTER  C  CONTAINS  THE  NUMBER  OF  CHANNELS 

• 

9 

REGISTER  B  CONTAINS  A  CARRIAGE  RETURN 

0C44 

E5 

AGN 

:  PUSH  H 

0C45 

3E20 

M VI  A,  20H 

• 

9 

PUT  A  SPACE  AFTER  THE  TIME  LOCATION  IN 

• 

9 

THE  PRINT  BUFFER. 

0C47 

77 

MOV  M,  A  .‘STORE  A  SPACE 

• 

9 

POINT  HL  AT  THE  LOCATION  AUER  THE 

• 

9 

CHANNEL  NUMBER 

0  C48 

23 

I  NX  H 

0C49 

23 

INX  H 

0C4A 

23 

I  NX  H 

• 

9 

PUT  A  SPACE  AFTER  THE  CHANNEL  NUMBER 

0C4E 

77 

MOV  M,  A  ;  STORE  A  SPACE 

• 

9 

POINT  HL  AT  THE  LOCATION  AETER 

• 

9 

THE  X  COORDINATE 

0C4C 

23 

INX  H 

0C4D 

23 

INX  H 

0C4E 

23 

INX  H 

0  C4F 

23 

INX  H 

• 

9 

PUT  A  SPACE  AFTER  THE  X  COORDINATE 

0C50 

77 

MOV  M,  A  .‘STORE  A  SPACE 

• 

9 

POINT  HL  AT  THE  LOCATION  AETER  THE 

• 

9 

Y  COORDINATE 

0C51 

23 

INX  H 

0C52 

23 

INX  H 

0C53 

23 

INX  H 

0C54 

23 

INX  H 

• 

9 

PUT  A  SPACE  AFTER  THE  Y  COORDINATE 

0C55 

77 

MOV  M,  A  ;  STORE  A  SPACE 

• 

9 

RELOAD  HL  TO  POINT  AT  THE  LOCATION 

• 

9 

AFTER  THE  TIME  IN  THE  PRINT  EUFFER 

0C56 

El 

POP  H 

• 

9 

INCREMENT  HL  TO  POINT  AT  THE 

• 

9 

NEXT  CHANNEL  DATA 

0  C57 

CD8609 

CALL  AD2 1 

0C5A 

23 

INX  H  ;INCREMENT  HL  22  TIMES 

• 

• 

DECREMENT  COUNTER  CONTAINING  THE  NUMBER 

• 

9 

OF  CHANNELS 

0C5E 

OD 

DCR  C 

0C5C 

CA680C 

JZ  LD1C 

• 

9 

NOT  ALL  CHANNEL  DATA  HAS  BEEN  SET  UP 

• 

• 

IN  THE  BUFFER 

• 

9 

PUT  A  CARRIAGE  RETURN  AFTER  THE  PRESENT  LINE 

0C5F 

78 

MOV  A,  B 

0C60 

12 

STAX  D 

• 

9 

POINT  DE  AT  THE  CARRIAGE  CONTROL  LOCATION 

• 

9 

FOR  THE  NEXT  LINE  IN  THE  EUFFER 

0C61 

13 

INX  D 

0C62 

CD8D09 

CALL  INDE  .‘INCREMENT  DE  22  TIMES 

;  LOAD  THE  SPACES  FOE  THE  NEXT  DATA  LINE 
JMP  AGN 

;  THIS  IS  THE  LAST  LINE  OF  THE  CHANNEL  DATA, 


0 C65  C3440C 


■ 
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;  THEREFORE  LOAD  AN  END  OF  FILE  CHARACTER 


0C68 

3E1C  LD1C:  M VI 

A, 

1 CH 

0C6  A 

12 

STAX 

D 

; LOA D  END  OF  FILE 

0  C6E 

C33901 

JMP 

KEYB 

;  RETURN 

A  PERIOD 

HAS 

BEEN 

RECEIVED  BUT  THE 

REMAINING  LOCATIONS  HAVE  NOT  BEEN  SET  TO 

ZERO 

0C6E 

03  CON2 :  INX 

B 

.‘INCREMENT  POINTER 

0C6F 

C3130C 

JMP 

CLRS 

SUBROUTINE 

TO 

SET  CB 

RADIO  CHANNEL 

THE  CHANNEL 

NUMBER 

IS  RECEIVED  FROM  THE 

KEYBOARD 

,  CONVERTED  TO  THE  APPROPRIATE 

CHANNEL 

CODE 

,  AND 

SENT  TO  THE  RADIO. 

0C72 

CDC701  CHN :  CALL 

CHKEY 

; RE AE  KEYBOARD 

0C75 

FE20 

CPI 

«  i 

; I S  CHARACTER  A  SPACE 

0C77 

C29E09 

JNZ 

ERROR 

; NOT  A  SPACE 

;  A  SPACE 

HAS 

BEEN  RECEIVED 

0C7A 

CD880C 

CALL 

GCHAN 

;  GET  CHANNEL  CODE 

0C7D 

D314 

OUT 

CHANL 

; OUTPUT  TO  RADIO 

LOAD  CHANNEL 

NUMBER  INTO  CHNI  SO  THAI 

THE  DISPLAY 

ROUTINES  CAN  PRINT  IT 

0C7F 

3A3420 

LDA 

CNL 

; GET  CHANNEL  NUMBER 

0C82 

323520 

STA 

CHNL 

0C85 

C33901 

JMP 

KEYB 

; RETURN 

SUBROUTINE 

TO 

GET  CHANNEL  CODE 

CHANNEL 

NUMBER  IN 

ASCII  IS  RETURNED  IN 

CE5  AND 

CH5+1. 

CHANNEL 

NUMBER  (1 

TO  5)  IS  RETURNED  IN  CNL 

CHANNEL 

CODE 

IS  RETURNED  IN  REGISTER  A 

0C88 

D5  GCHAN:  PUSH 

D 

;  READ  MS 

DIGIT 

0C89 

CDC701 

CALL 

CHKEY 

; READ  MS  DIGIT 

0C8C 

32C121 

STA 

CH5 

; STORE  MS  DIGIT 

0C8F 

CD9D08 

CALL 

CONHX 

;CCN VERT  TO  DECIMAL 

0C92 

LA9E09 

JC 

ERROR 

0C95 

07 

RLC 

0C96 

07 

RLC 

0C97 

07 

RIC 

0C98 

07 

RLC 

0C99 

57 

MOV 

D, 

A 

; STO RE  IN  REG  D 

;  RECEIVE 

LS 

DIGIT 

0C9A 

CDC701 

CALL 

CHKEY 

; RECEIVE  LS  DIGIT 

0C9D 

32C221 

STA 

CH5+1 

;  STORE  LS  DIGIT 

OCAO 

CD9D08 

CALL 

CONHX 

;CCNVERT  TO  DECIMAL 

0CA3 

DA9E09 

JC 

ERROR 

;  C  CONTAINS  THE  MS 

NIBBLE 

:  A  CONTAINS  THE  LS 

NIBBLE 

0  CA6 

B2 

ORA 

D 

; ADD  LS  DIGIT 

0CA7 

CD6408 

CALL 

DECHX 

JCONVERT  TO  HEX 

0  CA  A 

323420 

STA 

CNL 

;  STORE 

;  REGISTER  A  CONTAINS  THE  CHANNEL  NUMBER 
;  CHECK  TO  SEE  IF  THE  CHANNEL  NUMBER  IS  VALID 


. 
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OCAD 

5F 

MOV 

E,  A  ; STORE  IN  REGISTER  E 

OCAE 

FEOO 

CPI 

00H 

0  CBO 

CA9E09 

JZ 

ERROR  ;CH ANNEL  0  IS  INVALID 

0  CB3 

D629 

SUI 

4  ID 

0  CB5 

F29E09 

JP 

ERROR  ; I N V ALI D  CHANNEL  NUMBER 

;  IKE 

CHANNEL  NUMBER  IS  VALID,  LOOK  UP  THE 

;  CHANNEL 

CODE  IN  THE  TAELE  (CHTAB) 

0  CB8 

AF 

XRA 

A 

OCB9 

57 

MOV 

D,  A  ; LOAD  DE  REGISTER 

;  EE 

BEGISTER  CONTAINS  THE  CHANNEL  NUMBER 

OCEA 

21C00C 

LXI 

H,  CHTAB- 1  ;  POINT  AT  START  OF  TABLE 

OCBD 

19 

DAD 

D  ;  ADD  OFFSET 

;  HI 

NOW  POINTS  AT  CORRECT  CEANNEL  CODE 

OCEE 

7  E 

MOV 

A,  M  ;LCAD  CHANNEL  CODE 

;  REGISTER 

A  CONTAINS  THE  CHANNEL  CODE 

OCEF 

D  1 

POP 

D 

OCCO 

C9 

RET 

;TABLE 

FOR 

CHANNEL  CODES  FOR  CB  RADIO 

OCC1 

3B 

CHTAE; 

DB 

001 1 10 1 1 B 

OCC2 

3  A 

DB 

0011101  OB 

0CC3 

39 

DB 

001  11001B 

0  CC  4 

37 

DB 

00 1 1 01 1 1 B 

0CC5 

36 

DB 

001 101 10B 

OCC6 

35 

DB 

001 10101B 

0CC7 

34 

DB 

001 10100B 

0CC8 

32 

* 

DB 

001 10010B 

OCC9 

31 

DB 

001 10001B 

OCCA 

30 

DB 

001 10000B 

OCCB 

2F 

DB 

001011  1 1B 

OCCC 

2D 

DB 

00101101E 

0  CCD 

2C 

DB 

00101100B 

OCCE 

2B 

DB 

00101011B 

OCCE 

2A 

DB 

0010101  OB 

OCDO 

28 

DB 

00101000B 

0  CD  1 

27 

DB 

0010011  IB 

0CD2 

26 

DB 

001 001 10B 

0CD3 

25 

DB 

00100101B 

0CD4 

23 

DE 

0010001  IB 

0CD5 

22 

DB 

001 0001  OB 

0CD6 

21 

DB 

00100001  B 

0CD7 

IE 

DB 

0001111  OB 

0CD8 

28 

DB 

001 01000B 

0CD9 

IF 

DB 

000 1 1 1 1 1 B 

OCD  A 

ID 

DB 

00011101B 

OCDB 

1C 

DB 

0001  1100B 

OCDC 

IB 

DB 

00011011E 

OCDD 

1 A 

DB 

0001101  OB 

OCDE 

19 

DE 

00011 00  IB 

OCDF 

18 

DB 

00011000B 

OCEO 

17 

DB 

000  1 0 1 1 1 B 

OCE 1 

16 

DB 

0001 01 1 0B 

0  CE2 

15 

DB 

00010101B 

0CE3 

14 

DB 

0001 01 00B 

’  i 
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0  CE4 
0CE5 
0CE6 
0CE7 
0CE8 


OCE  9 
0  CE  A 
OCEE 
0  CEC 
OCEE 


OCEE 

0CE2 


OC  f  3 
OCE  5 
OCE6 
OCE  9 
OCEE 
OCED 


OCEE 
0  DO  1 


0  D04 
0  D06 


13 

DB  000  1001 1 B 

12 

DB  000 1 00 1  OB 

11 

DB  00010001 B 

10 

DB  0001 0000B 

OF 

DB  0000 1 1  1 1 B 

;  * 

* 

•  * 

t 

INTERRUPT  SERVICE  SUBROUTINE 

* 

;  * 

FOR  RST  5.5  (PRINTER  TIMER) 

* 

j  * 

CALLING  PROC.-  LOAD  DATA  INTO  BUFFER  (PRBF) 

* 

;  * 

END  EACH  LINE  WITH  A  CARR.  RETURN  (QD) 

* 

;  * 

END  TEXT  WITH  AN  END  OF  FILE  (1C) 

* 

»  * 

CALL  PTINT 

* 

2  IDO  2 1 
221621 


*LOC- 
*PR  E- 

* 


STORAGE  FOB  PROGRAM  COUNTER 
POINTER  FOR  PRINT  EUEFER 


* 

* 

* 


F5 

PTINT:  PUSH 

PSW 

E5 

PUSH 

H 

AF 

XRA 

A 

D30  4 

OUT 

STPER 

; CLEAR  RST  5.5  FLIP 

FB 

El 

;  ENABLE  INTERRUPTS 

FLOP 

El  ; ENABLE  INTERRUPTS 

LCC  CONTAINS  THE  ADDRESS  AT  WHICH  EXECUTION 
OF  THE  PROGRAM  SHOULD  CONTINUE 
IT  IS  INITIALLY  SET  TO  START 


2A1421 

LHLD 

LOC 

; READ  LOCATION 

E9 

PCHL 

; JUMP  TC  LOCATION 

ENABLE  RST 

5.5 

SET  PRINTER 

ACTIVE 

FLAG 

WHEN  PACT  FLAG  IS 

SET,  THE  SYSTEM  KNCWS 

THAT 

THE  PRINTER 

IS  PRINTING.  IF  THE  MODE 

SWITCH 

IS  SET  TO  CONTROL, 

THE  SYSTEM  KILL  WAIT 

FOR 

THE  PRINTER 

TO  STOP  BEFORE  IT  PASSES 

CONTROL 

TO  THE  KEYBOARD  ROUTINE. 

3EFF  START:  MVI  A, 

OFFH 

323022 

STA 

PACT 

20 

DB 

20H 

;  RIM 

E606 

ANI 

06H 

F6  08 

ORI 

08H 

;  SET  MASK  ENABLE 

30 

DB 

30H 

;  SIM 

INITIALIZE 

BUFFER 

POINTER 

THIS  IS  ONLY  EXECUTED  THE  FIRST  TIME 
THROUGH  THE  PROGRAM 

LXI  H ,  PRBF  ; LOAD  POINTER  TO  BUFFER 
SHLD  PRB 


; C ARRI AGE  RETURN  ROUTINE 

;  THIS  ROUTINE  KILL  MOVE  THE  PRINTHEAD  FROM 
;  THE  HOME  POSITION  TO  THE  FIRST  PRINT 
;  POSITION.. 

;  PRCNT  IS  USED  AS  A  COUNTER  TO  COUNT  THE 
;  NUMBER  OF  POSITION  LEFT  TO  MOVE. 

3E12  RTURN:  MVI  A,  18D 

321921  STA  PRCNT  ; LOAD  COUNTER  WITH  18 


4 
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;  LOAD  STEPPER  CONTROL  SIGNALS  AND  OUTPUT 
;  THE  TO  THE  MOTOR 


0  DO  9 

2A1420 

ML: 

LHLD 

PRPOS  ; LOAD  PRINT  POSITION 

ODOC 

2B 

DCX 

H 

; MOVE  ONE  LOCATION  LEFT 

ODOD 

221420 

SHLD 

PRPOS 

OD1  0 

3E4  0 

M  VI 

A, 

40H  ; ENABLE  RST  5.5  FLIP  FLOP 

0  D 1  2 

B  6 

ORA 

M 

; LCA D  STEPPER  CONTROLS 

0E13 

D304 

OUT 

STPER  ‘.OUTPUT  TO  STEPPER 

• 

• 

COUNTER  NUMBER  1  IS  USED 

OD 1 5 

3E78 

M  VI 

A, 

78H 

0  L 1 7 

D300 

OUT 

MODEA  ; SET  COUNTER  MODE 

0  D 1  9 

3E88 

MVI 

A, 

88H 

0  E 1  B 

D302 

OUT 

TIMA1  ; LOAD  LOW  ORDER  COUNT 

0  D  1 D 

3E13 

MVI 

A, 

13H 

OL1F 

D  30  2 

OUT 

TIMA1  ; LOAD  HIGH  ORDER  COUNT 

• 

t 

THE  TIMER 

HAS  BEEN  LOADED.  RETURN  TO  THE 

V 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE. 

0D21 

CD130E 

CALL 

LEAVE 

• 

• 

TIMER  IS 

FINISHED,  CHECK  TO  SEE  IF  THE 

• 

• 

PRINTHEAD 

IS  AT  THE  FIRST  PRINT  POSITION. 

• 

f 

20  MSEC* 

IS 

OVER 

0D24 

3A1921 

LD  A 

PRCNT  ; LOAD  COUNTER 

0E27 

3D 

DCR 

A 

0D28 

321921 

ST  A 

PRCNT  jDECREMENT  COUNTER 

0  E2B 

C2090D 

JNZ 

ML  ; NOT  DONE  YET 

• 

9 

PRINTHEAD 

I 

S  AT  THE  FIRST  PRINT  POSITION 

• 

f 

READ  CHARACTER  FROM  EUFFER 

0D2E 

2A1621 

LHLD 

PRB 

0E3  1 

7E 

NXT 

1:  MOV 

A  f 

M  ;LOAD  CHARACTER 

0D32 

FEOD 

CPI 

CRET  ; IS  CHAR.  A  CARR.  RETURN 

0E34 

CAS50D 

JZ 

CRET1  ;C ARRI AGE  RETURN 

0  E37 

FE1C 

CPI 

1CH  ;IS  CHARACTER  AN  EOF 

0E39 

CA8D0D 

JZ 

EOF 1  ; END  OF  FILE 

9 

CHARACTER 

IS  NOT  A  VALID  ASCII  CHARACTER, 

• 

9 

THEREFORE 

PRINT  IT. 

0  E3C 

D305 

OUT 

ASCII  ; OUTPUT  TO  CHARACTER  GEN. 

• 

9 

COUNTER  NUMBER  0  IS  USED 

0D3E 

3E40 

MVI 

A, 

40H 

0D40 

D304 

OUT 

STPER  ;  E N A ELE  RST  5.5  FLIP  FLOP 

0D42 

3E32 

MVI 

A ! 

32H 

0E44 

D300 

OUT 

MODEA  ; SET  COUNTER  MODE 

0D46 

3E2F 

MVI 

A, 

2  FH 

0L48 

D303 

OUT 

TIMAO  .-LOAD  LCH  ORDER  COUNT 

0E4  A 

3E0D 

MVI 

A  r 

ODH 

0  E4C 

D303 

OUT 

TIMAO  ; LOAD  HIGH  ORDER  COUNT 

0D4E 

3EC0 

MVI 

A  r 

OCOH 

0E50 

D304 

OUT 

STPER  ;TRIGGER  PRINT  STROBE 

• 

9 

THE  TIMER 

HAS  BEEN  LOADED,  RETURN  TO  THE 

• 

9 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE 

0D52 

CD130E 

CALL 

LEAVE 

• 

• 

CHARACTER 

HAS  BEEN  PRINTED 

• 

9 

GENERATE 

6 

MSEC.  DELAY 

0  D55 

3E40 

MVI 

A, 

40H 

0  L57 

D304 

OUT 

STPER  ;  E N A  EL E  RST  5.5  FLIP  FLOP 

'  ' 
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0£59 

3E78 

MVI  A , 

78H 

0E5B 

£300 

OOT 

MODEA 

; SET  COUNTER  MODE 

0£5£ 

3EDC 

MVI  A, 

0  DCH 

0£5F 

D30  2 

OUT 

TIMA  1 

;LOAD  LOW  CRDER  COUNT 

0D61 

3E05 

MVI  A, 

05H 

0  £63 

D302 

OUT 

TIM  A 1 

; L C A D  HIGH  ORDER  COUNT 

■ 

t 

THE  TIMER  HAS  BEEN  LOADED,  RETURN  TO  THE 

« 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE 

0  £65 

CD130E 

CALL 

LEAVE 

1 

TIMER  IS  FINISHED 

« 

I 

MOVE  PRINTHEAD  TO 

THE  RIGHT 

0E68 

2A1420 

LHLD 

PRPOS 

;LCAD  PRINT  POSITION 

0E6E 

23 

INX  H 

0  B6C 

221420 

SHLD 

PRPOS 

;  MO VE  TO  TEE  RIGHT 

0D6F 

3E40 

M  VI  A, 

40H 

0  £7  1 

B6 

ORA  M 

; LOAD  STEPPER  CONTROLS 

0£72 

D304 

OUT 

STPER 

; OUTPUT  TO  STEPPER 

0  £7  4 

3E78 

M  VI  A, 

78H 

0  £76 

£300 

OUT 

MODEA 

; SET  COUNTER  MODE 

0  £7  8 

3E88 

M  VI  A, 

88H 

0  £7  A 

D302 

OUT 

TIMA1 

; LOA D  LOW  CRDER  COUNT 

0  £7C 

3E13 

M  VI  A, 

13H 

0E7E 

D30  2 

OUT 

TIMA  1 

; LOAD  HIGH  ORDER  CCUNT 

THE  TIMER  HAS  BEEN  LOADED,  RETURN  TO  THE 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE 

0  £8  0 

CD130E 

CALL 

LEAVE 

20  MSEC.  IS 

OVER 

INCREMENT  POINTER 

TO  POINT  AT  THE  NEXT 

CHARATER  IN 

THE  PRINT  EUFFER 

0B83 

2A1621 

LHLD 

PRB 

0  £86 

23 

INX  H 

0D87 

221621 

SHLD 

PRB 

; INCREMENT  POINTER 

0  £8  A 

C3310D 

JMP 

NXT1 

; PRI NT  NEXT  CHARACTER 

END  OF  FILE 

SET  EOFF ,  THIS  INDICATES  THAT  NO  MORE 

DATA  IS  IN 

THE  EUFFER 

0  £8£ 

3SFF  E0F1:  MVI  A, 

OFFH 

0D8F 

321821 

STA 

EOFF 

;  SET  EOF  FLAG 

OD  92 

C3A00D 

JMP 

HOM 1 

CARRIAGE  RETURN 

CLEAR  EOFF, 

THIS 

INDICATES  THAT  THERE  IS 

MORE  DATA  IN  THE 

BUFFER 

0B95 

AF  CRET1:  XRA  A 

0£96 

321821 

STA 

EOFF 

; CLEAR  EOF  FLAG 

;  POINT  PR B  AT  THE 

NEXT  CHARACTER  TO  BE 

;  PRINTED..  IT 

WILL 

BE  ON  THE  NEXT  LINE. 

OB99 

2A1621 

LHLD 

PRB 

0£9C 

23 

INX  H 

OE9D 

221621 

SHLD 

PRB 

;INCREMENT  POINTER 

;  MOVE  THE  PRINTHEAD  ONE  PCSTION  TO  THE  RIGHT 

0  £  AO 

2A1420  H0M1:  LHLD 

PRPOS 

; LOAD  PRINTER  POSITION 

0  £A  3 

23 

INX  H 

1 


■ 
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0DA4 

221420 

SHLD 

PRPOS  ; MOV  E  ONE  LOCATION  LEFT 

0DA7 

3E40 

M  VI 

A, 

4 OH  ;ENAELE  PST  5.5  FLIP  FLOP 

ODA  9 

B6 

ORA 

M 

;LCAB  STEPPER  CONTROLS 

0  DA  A 

D304 

OOT 

STPER  ;OUTPUT  TO  STEPPER 

• 

9 

COUNTER 

NUMBER  1  IS  USED 

0  DAC 

3E78 

MVI 

A, 

78H 

ODAE 

D300 

OUT 

MODEA  ; SET  COUNTER  MODE 

ODEO 

3E88 

MVI 

A  r 

88H 

0EB2 

D302 

OUT 

TIMA  1  ; LOAD  LOW  ORDER  COUNT 

0  BE4 

3E13 

MVI 

A, 

13H 

0EB6 

D302 

OUT 

TIMA  1  ; LOAD  HIGH  ORDER  COUNT 

• 

9 

TBE  TIMER  HAS  BEEN  LOADED,  RETURN  TO  THE 

• 

9 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE 

0  EE8 

CD130E 

CALL 

LEAVE 

• 

9 

20  MSEC. 

IS 

OVER 

1 

♦ 

READ 

EOT  ; CHECK  EOT  SWITCH 

0  DBE 

1  D5 

+ 

PUSH 

D  ; S A V E  DE  REGISTERS 

ODBC 

1  160  1 

+ 

H  VI 

D, 

EOT  ;  STORE  SWITCH  NUMBER  IN  D 

0  DBE 

1  DBO  6 

♦ 

IN 

SWCH  ;  R E A D  THE  SWITCH  INPUTS 

0  DCO 

1  IF 

♦  NO: 

EAR 

; ROTATE  DO  INTO  CARRY 

0  DC  1 

1  15 

+ 

DCR 

D 

;  DECREMENT  COUNTER 

0  DC2 

1  C2C00D  + 

JNZ 

NO  ; NOT  CORRECT  SWITCH  YET 

0  DC5 

1  D 1 

♦ 

POP 

D  ; RESTORE  EE  REGISTERS 

0DC6 

DAAOOD 

JC 

HOM 1  ; NOT  DONE  YET 

• 

9 

CARRIAGE 

IS 

AT  END  OF  TRAVEL 

• 

9 

MOVE  LEFT  TWICE 

ODC  9 

3E02 

M  VI 

A  r 

02D 

0  DCB 

321921 

STA 

PRCNT  ; LCA D  COUNTER  WITH  2 

• 

9 

MOVE  PRINTHEAD  ONE  POSITION  TO  THE  LEFT 

0  DCE 

2A1420 

ML  1 

:  LHLD 

PRPOS  ; LOAD  PRINTER  POSITION 

ODDI 

2B 

DCX 

H 

0DD2 

221420 

SHLD 

PRPOS  ; MO VE  LEFT 

0DD5 

3E40 

M  VI 

A, 

40H  .‘ENABLE  RST  5.5  FLIP  FLOP 

0DD7 

B6 

ORA 

M 

;LCAD  STEPPER  CONTROLS 

0DD8 

D304 

OUT 

STPER  ; OUTPUT  TO  STEPPER 

• 

9 

COUNTER 

NUMBER  1  IS  USED 

ODDA 

3E78 

MVI 

A, 

78H 

0  EDC 

D300 

OUT 

MODEA  ; SET  COUNTER  MODE 

0  DBE 

3E88 

MVI 

A, 

88H 

ODEO 

D  30  2 

OUT 

TIMA1  ; LOAD  LOW  ORDER  COUNT 

0DE2 

3E13 

MVI 

A, 

13H 

0EE4 

D302 

OUT 

TIMA  1  ; LOA B  HIGH  ORDER  COUNT 

• 

t 

THE  TIMER  HAS  BEEN  LOADED,  RETURN  TO  THE 

• 

9 

INTERRUPTED 

PROGRAM  UNTIL  THE  TIMER  IS  DONE 

0  DE6 

CD130E 

CALL 

LEAVE 

• 

9 

20  MSEC. 

IS 

OVER 

• 

9 

CHECK  TO 

SEE  IF  THE  PRINTHEAD  SHOULD 

• 

9 

BE  MOVED 

AGAIN. 

0DE9 

3A1921 

LDA 

PRCNT  .'LOAD  COUNTER 

ODEC 

3D 

DCR 

A 

ODED 

321921 

STA 

PRCNT  ; DECREMENT  COUNTER 

ODFO 

C2CE0D 

JNZ 

Mil  ;NOT  DONE  YET 

• 

9 

RESET  PRINTER  POSITION  POINTER 

0DF3 

21C609 

LXI 

H, 

STEP+18D 

r 
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0DF6 

221420 

SHLD 

PRPOS  .-INITIALIZE  PRPOS 

CHECK  TO 

SEE  IF  THE  PRINTING  IS  FINISHED. 

0  DF9 

3A1821 

LDA 

EOFF  ; READ  EOF  FLAG 

0  DEC 

A7 

ANA 

A  ;  SET  FLAGS 

ODFD 

CA040D 

JZ 

RTURN  ;CARRI AGE  RETURN 

END  OP  PILE  HAS  BEEN  RECEIVED 

EXIT  FROM  INTERRUPT  ROUTINE 

LOAD  LOC 

KITH  THE  ADDRESS  OF  START,. 

THIS  KILL  ENSURE  THAT  THE  NEXT  TIME  THIS 

ROUTINE 

IS  CALLED,  EXECUTION  WILL  BEGIN 

AT  THE  START  OF  THE  ROUTINE. 

0E00 

21F30C 

LXI 

H,  START 

0  EO  3 

221421 

SHLD 

LOC  ; RESET  RETURN  LOCATION 

MASK  RST 

5.5 

THE  TIMER  CAN  THEREFORE  NOT  INTERRUPT  THE 

SYSTEM. 

THE  INTERRUPT  WILL  EE  REENABLED 

THE  NEXT 

TIME  THE  ROUTINE  IS  CALLED, 

0  E 06 

20 

DB 

20H  ;  RIM 

0  EO  7 

E607 

ANI 

07H 

0  EO  9 

F609 

ORI 

C9H  ;  M  ASK  RST  5.5 

OEOE 

30 

DB 

30H  ; SIM 

CLEAR  PRINTER  ACTIVE  FLAG 

;  THE  PRINTER  IS  NO  LONGER  PRINTING 

OEOC 

AP 

XRA 

A 

OEOD 

323022 

STA 

PACT 

0  E  10 

El 

POP 

H 

0  E  1 1 

FI 

POP 

PSW 

0  E  1  2 

C9 

RET 

ROUTINE 

TO  LEAVE  INTERRUPT  ROUTINE  AND  SET 

RETURN  ADDRESS  IN  LOC 
UPON  RECEIVING  AN  INTERRUPT,  PROGRAM 
EXECUTION  KILL  CONTINUE  WITH  THE 
INSTRUCTION  IMMEDIATELY  AFTER  THE 
CALL  LEAVE  INSTRUCTION. 


0  E 13 

El 

LEAVE:  POP 

H 

;LOAD 

HL  WITH 

RETURN  ADD. 

0E14 

221421 

SHLD 

LOC 

;  STORE 

ADDRESS 

IN  ICC 

0  E  17 

El 

POP 

H 

0  E 18 

FI 

POP 

PSW 

0  E 1 9 

C9 

RET 

*  * 

*  INTERRUPT  DRIVEN  PRINTER  SUBROUTINES  * 

*  * 
$*$**£*  **$**#*****$***$££***:£  ***=fc*3r***  ******** 

PROP  IS  READ  BY  THE  SCAN  FOUINES  TO  DETERMINE 
WHETHER  CR  NOT  THE  DATA  SHOULD  BE  PRINTED 
ACLOC  IS  READ  EY  THE  SCAN  ROUTINES  TO 

DETERMINE  WHETHER  TO  PRINT  THE  LOCATIONS 
OR  THE  FLAGS.  WHEN  ACLOC  IS  SET  THE 
FLAGS  ARE  PRINTED.  WHEN  ACLOC  IS  RESET 
THE  POSITIONS  ARE  PRINTED. 


SUBROUTINE  TO  ENABLE  PRINTER 
AND  SET  THE  FRINT  INTERVAL 


' 
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0E1  A 

3EFF 

PRI: 

£4  VI 

A, 

OFFH 

0E1C 

322F22 

ST  A 

PROF 

; SET  PRINTER  FLAG 

0E1E 

CDDB08 

CALL 

DECKY 

0  E22 

323122 

STA 

PINT 

0E25 

323222 

STA 

PINT  1 

;  STORE  PRINT  INTERVAL 

0E28 

C33901 

JMP 

KEYB 

; RETURN 

;  SUBROUTI 

NE 

TO  DISABLE  PRINTER 

0E2B 

AE 

POF : 

XR  A 

A 

0  E2C 

322122 

STA 

PROF 

.‘CLEAR  FRINTER  FLAG 

0E2F 

C33901 

• 

JMP 

KEYB 

;  RETURN 

; SUBROUTINE 

TO 

SET  AC 

II VII Y  PRINT  FLAG 

0  E32 

3EFF 

FLG : 

M  VI 

A, 

OFFH 

0E34 

321A21 

STA 

ACLOC 

;  SET  FLAG 

0  E37 

C33901 

• 

JMP 

KEYB 

jEETURN 

•SUBROUTINE 

TO 

CLEAR 

ACTIVITY  PRINT  FLAG 

0  E3  A 

AF 

POS: 

XR  A 

A 

0E3B 

321A21 

STA 

ACLOC 

;CLEAR  FLAG 

0  E3E 

C33901 

J  MJ? 

KEYB 

;  RETURN 

************** 

******* 

********************** 

*  * 

*  REAL  TIME  CLOCK  SUBROUTINES  * 

*  * 
********************************************** 

SUBROUTINE  TO  SET  THE  REAL  TIME  CLOCK 
TIME  IS  READ  FROM  THE  KEYBOARD  IN  THE  FORMAT 
HH  :  MM 

WHERE  HH  IS  THE  TIME  IN  HOURS 

MM  IS  THE  TIME  IN  MINUTES 
THE  CLOCK  IS  STARTED  WHEN  A  SPACE 
IS  RECEIVED. 


0E41 

E5 

1ST 

:  PUSH 

H 

• 

9 

THE  INTERRUPTS  ARE 

DISABLED  SO  THAT  THE 

• 

• 

CLOCK  WILL  NOT  BE 

INCREMENTED. 

0E4  2 

20 

DB 

20H 

;  RIM 

0  E43 

E607 

ANI 

07H 

0145 

F6  0A 

ORI 

OAH 

;  MASK  RST  6.5 

0E47 

30 

DB 

30H 

;  SIM 

0  E48 

AF 

XRA 

A 

;CLE AR  ACCUMULATOR 

• 

t 

CLEAR  THE 

SECONDS 

COUNTER 

0E49 

211720 

LXI 

H,  SECO 

0  E4C 

77 

MOV 

M,  A 

.‘CLEAR  SECO 

0E4E 

23 

I  NX 

H 

0  E4E 

77 

MOV 

M,  A 

; CLEAR  SEC1 

• 

» 

WAIT  EOR 

SPACE  FROM  KEYBOARD 

0  E4F 

21 1C20 

LXI 

H,  HR1 

0E52 

CDC70  1 

CALL 

CHKEY 

; RE AD  KEYECARD 

0  E55 

FE20 

CPI 

i  i 

;  IS  CHARACTER  A  SPACE 

0  E57 

C29FQ9 

JNZ 

ERROR 

; NOT  A  SPACE 

;  A  SPACE  HAS  BEEN  RECEIVED,  RECEIVE  THE 
;  MS  BYTE  OF  THE  HOUR 
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0E5A 

CDC701 

CALL 

CHKEY 

;READ  KEYEOARD 

0E5D 

CD9D08 

CALL 

CONHX 

;CCN VERT  TO  HEX 

0160 

DA9E09 

JC 

ERROR 

;  ERROR  EXIT 

• 

• 

LOAD  MS 

DIGIT  OF 

HOURS  INTO  THE  COUNTER 

0  E63 

77 

MOV 

M, 

A 

; LOAD  HR  1 

0E64 

2B 

DCX 

H 

• 

9 

RECEIVE 

IS 

DIGIT 

OF  THE  HOUR 

0  E65 

CDC701 

CALL 

CHKEY 

; READ  KEYBOARD 

0E68 

CD9D08 

CALL 

CONHX 

;CON VERT  TO  HEX 

0E6B 

BA9E09 

JC 

ERROR 

; ERROR  EXIT 

• 

9 

LOAD  IS 

DIGIT  FO 

HOURS  INTO  THE  CLOCK 

0E6E 

77 

MOV 

M, 

A 

;LOAD  HRO 

0  E6E 

2B 

DCX 

H 

• 

9 

BAIT  EOR 

A 

COLON 

0E70 

CDC701 

CALL 

CHKEY 

; RE A C  KEYBOARD 

0  E73 

EE3  A 

CPI 

i  •  i 
• 

;IS  CHARACTER  A  COLON 

0E75 

C29E09 

JNZ 

ERROR 

; NOT  A  COLON 

• 

9 

COLON  HAS  BEEN  RECEIVED , 

9 

RECEIVE 

THE 

MS  DIGIT  OF  THE  MINUTES 

0E78 

CDC70  1 

CALL 

CHKEY 

;READ  KEYBOARD 

0E7S 

CB9D08 

CALL 

CONHX 

; CON VERT  TC  HEX 

0E7E 

DA9E09 

JC 

ERROR 

; ERROR  EXIT 

• 

9 

LOAD  MS 

DIGIT  OF 

THE  MINUTES 

0E81 

77 

MOV 

M, 

A 

; LOA D  MINI 

0E82 

2B 

DCX 

H 

« 

9 

RECEIVE 

LS 

DIGIT 

OF  THE  MINUTES 

0E83 

CDC701 

CALL 

CHKEY 

;  RE A D  KEYBOARD 

0E86 

CD9D08 

CALL 

CONHX 

; CONVERT  TC  HEX 

0E8  9 

BA9E09 

JC 

ERROR 

; E  RROR  EXIT 

• 

9 

LOAD  THE 

LS 

DIGIT 

OF  THE  MINUTES 

0  E8C 

77 

MOV 

M, 

A 

; LOAD  MINO 

• 

9 

WAIT  EOR 

A 

SPACE 

FROM  THE  KEYBOARD 

0  E8E 

CDC70 1 

HAITI:  CALI 

CHKEY 

;  RE AD  KEYEOARD 

0E90 

FE20 

CPI 

i  i 

;IS  CHARACTER  A  SPACE 

0E92 

C28D0E 

JNZ 

HAITI 

; WAIT  FOE  l  SPACE 

• 

9 

A  SPACE 

HAS 

BEEN 

RECEIVED 

• 

9 

UNMASK  R ST 

6.5 

0E95 

20 

DB 

20H 

;  RIM 

0E96 

E60  5 

ANI 

05H 

0E96 

F6  08 

ORI 

08H 

; SET  MASK  ENABLE 

0E9A 

30 

DB 

30H 

;  SIM 

0E9E 

El 

POP 

H 

0E9C 

C33901 

• 

JMP 

KEYB 

9 

• 

9 

SUBROUTINE 

TO 

READ 

THE  REAL  TIME  CLOCK 

0E9E 

CDA50E 

HIM :  CALL 

TIME 

0  EA2 

C33901 

JMP 

KEYB 

; RETURN 

0EA5 

C5 

TIKE:  PUSH 

B 

0EA6 

D5 

POSH 

D 

0EA7 

E5 

PUSH 

H 

• 

9 

USABLE 

THE 

INTERRUPT  UNTIL 

• 

9 

THE  CLOCK  HAS  BEEN  READ 

0  EA8 

20 

DE 

20H 

;  RIM 

0  EA  9 

E607 

ANI 

07H 

. 
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QEAE 

E60A 

ORI 

OAH  ;  M ASK  RST  6.5 

0  I AD 

30 

DB 

30H  ;  SIM 

OEAE 

111120 

LXI 

Dr 

CHR18 

0  EB  1 

21  1720 

LXI 

Hr 

SECO 

OEB4 

0606 

M  VI 

B, 

06H 

• 

• 

PUT 

TIKE 

IN 

TEMPORARY  STORAGE 

0  EB6 

7  E 

HOLD: 

MOV 

A, 

M 

0EB7 

12 

S  TAX 

D 

0  EE8 

23 

I  NX 

H 

0  EB9 

IB 

DCX 

D 

0  EBA 

05 

DCR 

B 

OEBE 

C2B60E 

JNZ 

HOLD 

• 

9 

NOE 

THAT 

THE 

CLOCK  HAS  BEEN  READ 

• 

« 

UNMASK  RST  6 

.5 

OEBE 

20 

DB 

20H  ; RIM 

0  EBF 

E605 

ANI 

05H 

0  EC  1 

F608 

ORI 

08H  ; SET  MASK  ENABLE 

0EC3 

30 

DB 

30H ;  ; SIM 

• 

• 

PRINT  TIME 

• 

• 

THE 

TIME 

HAS 

BEEN  STORED  IN  THE  TOP 

• 

9 

OF 

THE  PRINT 

STACK 

• 

9 

DE 

POINTS  AT 

THE  TIME 

0EC4 

110C20 

LXI 

D, 

CHR18-5 

0EC7 

CD9E0A 

CALL 

PRIMM 

OECA 

45204953 

DE 

•E  IS  • 

OECE 

20 

OECE 

00 

DB 

00H 

OEDO 

210920 

LXI 

H  r 

CHR10 

• 

9 

HL 

POINTS  AT 

THE  PRINT  STACK 

• 

9 

LOAD  MS 

DIGIT  OF  HOURS 

0  ED3 

1 A 

1DAX 

D 

0EI4 

CDBC08 

CALL 

CONAS  ; CONVERT  TO  ASCII 

0ED7 

DA9E09 

JC 

ERROR  ;  ERROR  EXIT 

• 

9 

PUT 

ON  PRINT 

STACK 

OEDA 

77 

MOV 

Hr 

A 

OEDE 

23 

I  NX 

H 

OEDC 

13 

I  NX 

D 

OEDD 

CD320A 

CALL 

PRINT  ; PRI NT  HR  1 

• 

9 

LOAD  LS 

DIGIT  OF  HOURS 

0  EEO 

1 A 

LDAX 

D 

0  EE  1 

CDBC08 

CALL 

CONAS  ; CON  VERT  TO  ASCII 

0  EE4 

BA9E09 

JC 

ERROR  ;ERROR  EXIT 

m 

9 

PUT 

ONTO 

PRINT  STACK 

0EE7 

77 

MOV 

M, 

A 

0  EE8 

23 

I  NX 

H 

0  EE9 

13 

I  NX 

D 

0  EE  A 

CD320A 

CALL 

PRINT  ; PRINT  HRO 

• 

9 

PUT 

A  COLON 

ONTO  PRINT  STACK 

0  EED 

3E3A 

M  VI 

A, 

•  .  • 

• 

OEEE 

77 

MOV 

Mr 

A 

OEFO 

23 

I  NX 

H 

0  EF 1 

CD320A 

CALL 

PRINT  ; PRI NT  A  COLON 

9 

LOAD  MS 

DIGIT  OF  MINUTES 

0  EF4 

1 A 

LDAX 

D 

■  ■ 
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0EF5 

CDBC08 

CALL 

CONAS 

;CON VERT  TO 

ASCII 

OEF  8 

DA9E0S 

JC 

ERROR 

;  ERROR 

EXIT 

• 

f 

PUT 

ONTO 

PRINT  STACK 

0 IFB 

77 

MOV 

M  f  A 

0  EFC 

23 

I  NX 

H 

0  EFD 

13 

I  NX 

D 

0  EFE 

CD320A 

CALL 

PRINT 

; PRINT 

MINI 

• 

• 

LOAD 

)  LS 

DIGIT  OF 

MINUTES 

0  FO  1 

1 A 

LDAX 

D 

0F02 

CDBC08 

CALL 

CONAS 

; CONVERT  TC 

ASCII 

Of  05 

DA9E09 

JC 

ERROR 

;  ERROR 

EXIT 

• 

9 

PUT 

ONTO 

PRINT  STACK 

0  FO  8 

77 

MOV 

K,  A 

0F09 

23 

I  NX 

H 

0  FO  A 

13 

I  NX 

D 

OFOB 

CD320A 

CALL 

PRINT 

.♦PRINT 

MI  NO 

• 

• 

PUT 

A  COLON  ONTO 

THE  PRINT  STACK 

OFOE 

3E3A 

M  VI 

A, 

0  F 1  0 

77 

MOV 

M,  A 

OF  11 

23 

I  NX 

H 

OF  1 2 

CD320A 

CALL 

PRINT 

;  PRINT 

A  COLON 

• 

9 

LOAD 

I  MS 

DIGIT  OF 

SECONDS 

0F15 

1 A 

LDAX 

D 

OF  1  6 

CDBCOS 

CALL 

CONAS 

;  C  C  N  V  E 

RT  TC 

ASCII 

0  F 1  9 

DA9E09 

JC 

ERROR 

;  ERROR 

EXIT 

• 

• 

PUT 

ONTO 

PRINT  STACK 

0  F 1 C 

77 

MOV 

M  f  A 

OF  ID 

23 

I  NX 

H 

0  F  1 E 

13 

I  NX 

D 

OF  IF 

CD320A 

CALL 

PRINT 

; PRINT 

SEC  1 

• 

9 

LOAD 

i  LS 

DIGIT  OF 

SECONDS 

0F22 

1 A 

LDAX 

D 

0  F23 

CDBC08 

CALL 

CONAS 

.♦CONVERT  TO 

ASCII 

0  F26 

DA9E0S 

JC 

ERROR 

; E  RRCR 

EXIT 

• 

9 

POT 

ONTO 

PRINT  STACK 

0  F29 

77 

MOV 

M,  A 

OF  2A 

CD320A 

CALL 

PRINT 

; PRINT 

SECO 

OF2D 

El 

POP 

H 

0F2E 

D 1 

POP 

D 

0F2F 

Cl 

POP 

E 

0F30 

C9 

RET 

j  *  $ 

;*  SCAN  SDBEOOTINES  * 

j  *  * 

; DECK  Y  IS  A  SUBROUTINE  BHICH  RECEIVES  T BO 
;DECIMAL  DIGITS  FROM  THE  KEYBOARD  AND 
; RETURNS  THE  CORRESPONDING  HEXADECIMAL 
; NUMBER  IN  THE  KEYBOARD 

; SUBROUTINE  TO  SET  THE  SCAN  INTERVAL 
0F31  CDDB08  SCI:  CALL  DECKY 

0E34  323322  STA  SCAN  1 
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0F37 

323422 

STA 

SCAN2 

0F3A 

C33901 

IMP 

• 

KEYS 

9 

; S  UBBOUTINE 

TO 

SET  THE  CASSETTE  STOEE  I NTEBVAL 

0F3E 

CDDE08 

CSI :  CALL 

DECKY 

0F40 

323522 

SI  A 

CASIP 

0F43 

323622 

STA 

cash 

0  F46 

323722 

STA 

CASI2 

0F49 

C33901 

JMP 

• 

KEYB 

•SUBBOUTINE 

TO 

SET  THE  MULTIPLIES  CONSTANT 

0F4C 

CDDB08 

MLC :  CALL 

DECKY 

OF  4F 

323F22 

STA 

CMULT 

0F52 

C33901 

jap 

• 

KEYB 

;  SUBBOUTINE 

TO 

SET  THE  TEST  ANTENNA  COMP.  VALUE 

0F55 

CDDB08 

TAN:  CALL 

DECKY 

0F58 

321221 

STA 

TANCP 

0F5B 

C33901 

JMP 

• 

KEYB 

t 

;  SUBBOUTINE 

TO 

SET  THE  DISTANCE  AT  WHICH 

;  THE  SCAN 

BATE  WILL  INCBEASE 

0F5E 

CDDB08 

DIS:  CALL 

DECKY 

0  F6  1 

321C21 

STA 

DISTC 

0F64 

C33901 

JHF 

• 

KEYB 

; S ET  PEBCENTAGE 

FOE  ACTIVITY  CALCULATIONS 

;THF  PEBCENTAGE 

IS  STOBED  AS  100-INPUT 

OF  67 

CDDB08 

PCT :  CALL 

DECKY 

0F6A 

47 

MOV 

B, 

A  ; STOBE  IN  EEGISTEB  B 

0F6E 

3E64 

M  VI 

Ar 

100 

0F6D 

90 

SUB 

B 

;  1 00-INPUT 

0F6E 

321D21 

STA 

ACPCT 

0F71 

C33901 

JMP 

KEYB  ; BETUBN 

•SUBBOUTINE 

TO 

CLEAB  POPULATION  MATBIX 

0F74 

CD7A0F 

CLE:  CALL 

SCLE 

0F77 

C33901 

JMP 

KEYB 

0F7  A 

1 1 560 A 

SCLE:  LXI 

D, 

2646  ;  LOAD  COUNTEE 

0F7D 

21A025 

LXI 

H, 

POPM  ; LOAD  POINTEE 

OF  80 

3600 

CLE  5:  M VI 

Mr 

0  ; CLE AB  DATA 

0  F82 

23 

INX 

H 

;INCBEMENT  POINTEE 

0F83 

IB 

DCX 

D 

; DECEEMENT  COUNTEE 

;  CHECK  COUN1EB  TO  SEE  IF  ZEBO 

0F84 

7B 

MOV 

A, 

E 

0F85 

A7 

ANA 

A 

; SET  FLAGS 

OF  86 

C2800F 

JNZ 

CLB5  ; NOT  DONE  YET 

0F89 

7A 

MOV 

Ar 

D 

0F8A 

A7 

ANA 

A 

; SET  FLAGS 

0F8B 

C2800F 

JNZ 

CLB5  ; N OT  DONE  YET 

;  ALL  LOCATIONS  HAVE  BEEN  CLEAHED 

0F8E 

C9 

BET 

•SUBBOUTINE  TO  DISPLAY  POPULATION  MATBIX 
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TRANS.  NUMBER  (1  TO  3)  IS  ENTERED  FRCM  KEYB. 


0  E  8  F 

CDDB08 

PPM 

:  CALL 

DECKY 

0F92 

21A025 

LXI 

H,  POPM 

• 

t 

A  CONTAINS  THE  TRANSMITTER  NUMBER 

0F95 

3D 

POP  1 :  DCR 

A  ; DECREMENT  COUNTER 

0F96 

CA9F0F 

JZ 

POP2 

• 

• 

HI  DOES 

NOT  POINT  AT  THE  CORRECT 

• 

• 

TRANSMITTER  DATA 

0F9S 

CD  97  09 

CALL 

AD882  jINCREMENT  POINTER 

0F9C 

C3950F 

JMP 

POP1 

• 

» 

HL  NOW  POINTS  AT  THE  CORRECT  CHANNEL 

• 

• 

USE  B  AS 

X  COUNTER  AND  C  AS  Y  COUNTE 

0F9F 

AF 

POP2:  XR A 

A 

0  FAO 

47 

MOV 

B,  A 

OFA  1 

4  F 

MOV 

C,  A  ; CLEAR  COUNTERS 

• 

f 

COUNTERS 

HAVE  BEEN  CLEARED 

0  FA2 

CDOOOA 

POP3:  CALL 

HOME  ;LIN£  FEED 

0FA5 

CD260A 

CALL 

RETN  ; C ARR.  RETURN 

0FA8 

CD9D0A 

CALL 

PRIMM 

OFA  B 

5820 

DB 

»X  * 

OFAD 

00 

DB 

OOH 

• 

• 

PRINT  THE  X  COORDINATE 

0  FAE 

78 

MOV 

A ,  B  ; LC AD  X  COUNTER 

OF  AF 

CD2108 

CALL 

PRBYT  ; PRINT  X  COORDINAT 

0  FB2 

CD9D0A 

CALL 

PRIMM 

0FE5 

2C205920 

DB 

Y  ' 

0FB9 

00 

DB 

OOH 

0  FEA 

79 

MOV 

A,  C 

• 

9 

PRINT  THE  Y  COORDINATE 

0  EBB 

CD2108 

CALL 

PRBYT  ; PRINT  Y  COORDINAT 

0  FEE 

CD9D0A 

CALL 

PRIMM 

OFC  1 

203D20 

DB 

•  =  ( 

0FC4 

00 

DB 

OOH 

• 

9 

LOAD  THE 

POPULATION  COUNTER 

0  FC5 

56 

MOV 

D,  M 

0FC6 

23 

I  NX 

H 

0FC7 

5E 

MOV 

E,  M  ; LOAD  DATA  INTO  DE 

0FC8 

23 

I  NX 

H 

• 

9 

COUNTER 

HAS  BEEN  LOADED  INTO  DE 

• 

9 

PRT16  IS 

A  SUBROUTINE  WHICH  WILL 

• 

9 

CONVERT 

A  16  BIT  BINARY  NUMBER  INTO 

• 

9 

DECIMAL 

NUMBER  AND  PRINT  THE  NUMBER. 

OFC9 

CDDFOF 

CALL 

PRT16  ;  PRINT  DATA 

• 

9 

INCREMENT  THE  Y  COUNTER 

OFCC 

OC 

INR 

C 

OFCD 

79 

MOV 

A,  C  ;CHECK  Y  COUNTER 

0  FCE 

FE15 

CPI 

21  ; DONE  YET 

OFDO 

C2A20F 

JNZ 

POP3  ; NOT  DONE  YET 

• 

• 

Y  IS  DONE,  INCREMENT  THE  X  COUNTER 

0FD3 

OEOO 

M  VI 

C,  0  ; RESET  Y  COUNTER 

0FD5 

04 

INR 

B 

• 

9 

IS  X  DONE? 

0FD6 

78 

MOV 

A,  B  ; CHECK  X  COUNTER 

0FE7 

FE 15 

CPI 

21 

DATA 


REG. 


' 
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0FD9 

C2A20F 

JNZ 

POP3  ; N OT  DONE  YET 

;  All 

LOCATIONS  HAVE  BEEN  PRINTED 

Of  DC 

C33901 

• 

JMP 

KEYB  ;  RETURN 

; S  UBROUTI NE 

TO 

PRINT  THE  DATA  IN  THE  DE  REG. 

;  THE 

DATA 

IS 

PRINTED  IN  DECIMAL. 

;  B  IS 

CLEARED 

IF  ZEROS  ARE  NOT  TO  BE  PRINTED 

;  E  IS 

SET 

IF 

ZEROS  SHOULD  EE  PRINTED 

;  PRTNB  IS 

A  SUBROUTINE  WHICH  WILL 

;  PRINT  ONE 

CHARACTER 

Of  Df 

D5  PRT16: 

PUSH 

D 

Of  EO 

E5 

PUSH 

H 

Of  E 1 

C5 

PUSH 

B 

Of  E2 

F5 

PUSH 

PSH 

0  f  E3 

0600 

M  VI 

B, 

0  ;DC  NOT  PRINT  LEADING  0'S 

Of  E5 
Of  E6 

EB 

1 1F0D8 

XCHG 

LXI 

D, 

-10000  ; LOAD  FIRST  DIVISOR 

Of  ES 

OEOO 

M  VI 

c. 

0  ;CLE AR  COUNTER 

Of  EB 

19  PfiTNI: 

DAD 

D 

; SUBTRACT  DIVISOR 

Of  EC 

7C 

MCV 

A, 

H 

Of  ED 

A7 

ANA 

A 

; SET  FLAGS 

OfEE 

FAF50f 

J  M 

THOUS  ; FIRST  DIGIT  IS  DONE 

Of  f  1 

OC 

INR 

C 

; INCREMENT  DIGIT 

Off  2 

C3EB0f 

JMP 

PRTN1 

0  f  F5 

111027  THOUS: 

LXI 

D, 

10000 

Off  8 

19 

DAD 

D 

;  ADD  DIVISCR  BACK 

0  FF9 

79 

MOV 

A  r 

C  ; LOAD  DIGIT 

Of  f  A 

CD4D10 

CALL 

PRTNB  ;  PRINT  DIGIT 

Of  FD 

1 1 18FC 

LXI 

D, 

-1000  ;  LOAD  DIVISOR 

1000 

OEOO 

M  VI 

c. 

0  ;CLEAR  COUNTER 

1  002 

19  PRTN2 : 

DAD 

D 

1003 

7C 

MOV 

A  t 

H 

1  004 

A7 

ANA 

A 

; SET  FLAGS 

1005 

f AOCIO 

JM 

HUNDR  ; SECON  D  DIGIT  IS  DONE 

1  008 

OC 

INR 

C 

; I NCREMENT  DIGIT 

1009 

C30210 

JMP 

PRTN2 

1  OOC 

11E803  HONDE: 

LXI 

D, 

1000 

lOOf 

19 

DAD 

D 

; ADD  DIVISOR  BACK 

1010 

79 

MOV 

A  / 

C  ; LOAD  DIGIT 

1011 

CD4D10 

CALL 

PRTNB  ; PRI NT  DIGIT 

1014 

1 1 9CFF 

LXI 

D, 

-100  ; LOAD  DIVISOR 

1017 

OEOO 

M  VI 

c. 

0  ;CLEAR  COUNTER 

1019 

19  PRTN3 : 

DAD 

D 

1  0 1 A 

7C 

MOV 

A  r 

H 

1  0 1  E 

A7 

ANA 

A 

;  SET  FLAGS 

101C 

f A2310 

JM 

TENS  ; THI RD  DIGIT  IS  DONE 

101f 

OC 

INR 

C 

; I NCREMENT  DIGIT 

1020 

C31910 

JMP 

PRTN3 

1023 

116400  TENS: 

LXI 

D, 

100 

1026 

19 

DAD 

D 

;  ADD  DIVISCR  BACK 

1027 

79 

MOV 

A, 

C  ;LOAD  DIGIT 

1028 

CD4D10 

CALL 

PRTNB  ; PRI NT  DIGIT 

1  02B 

1  If 6 Ff 

LXI 

D  , 

-10  ; LOAD  DIVISOR 

1  02E 

OEOO 

M  VI 

Cr 

0  ;CLE AR  COUNTER 

/ 


. 
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1030 

19 

PBTN4: 

DAD 

D 

1031 

7  C 

MOV 

A,  H 

1032 

A7 

ANA 

A 

;  SET  FLAGS 

1033 

FA3A10 

JM 

ONES 

; FO ORTH  DIGIT  IS  DONE 

1  03  6 

OC 

INR 

C 

1037 

C33010 

JMP 

PRTN4 

1  03A 

1 10A00 

ONES: 

LXI 

D,  10 

1  03D 

19 

DAD 

D 

; ADD  DIVISOR  BACK 

103E 

79 

MOV 

A,  C 

; LOA D  DIGIT 

1  03F 

CD4D10 

CALL 

PRTNB 

;  PRINT  DIGIT 

1042 

7  D 

MOV 

A,  I 

;  LOAD  LAST  DIGIT 

;  SINCE  THIS  IS  THE 

LAST  DIGIT, 

;  IT 

MOST 

BE  PRINTED 

EVEN  IF 

;  IT 

IS  ZERO 

1  043 

06FF 

M  VI 

B,  OFFH 

; PRINT  IF  ZERO 

1045 

CD4D10 

CALL 

PRTNB 

; PRINT  DIGIT 

1  048 

FI 

POP 

PSW 

1049 

Cl 

POP 

B 

104A 

El 

POP 

H 

1  04E 

D 1 

POP 

D 

1  04C 

C9 

• 

RET 

jSUBROOTINE 

TO  PRINT 

ONE  DIGIT  IN  THE  ACC. 

;  REGISTER 

B  IS  SET 

IF  ZERO  SHOOLD  BE  PRINTED 

1  04D 

E5 

PRTNB : 

POSH 

H 

1  04E 

F5 

POSH 

PSW 

;  CHECK  TO 

SEE  IF  CHARACTER  IS  ZERO 

1  04  F 

A7 

ANA 

A 

;  SET  FLAGS 

1050 

C25810 

JNZ 

PRTN8 

.-PRINT  CHARACTER 

;  CHARACTER  IS  A  ZERO,  CHECK  TO  SEE  IF 

;  it 

SHOOLD  BE  PRINTED 

1053 

78 

MOV 

A,  B 

;  LOAD  FLAG 

1054 

A7 

ANA 

A 

;  SET  FLAGS 

1  055 

CA6610 

JZ 

PREXT 

; DC  NOT  PRINT  ZERO 

;  PRINT  THE  CHARACTER 

1  058 

FI 

PRTN8: 

POP 

PSW 

1059 

F5 

POSH 

PSW 

; RELOAD  DIGIT 

1  05A 

CDBC08 

CALL 

CONAS 

; CONVERT  TO  ASCII 

105D 

2A1220 

LHLD 

POINT 

;  POT 

CHARACTER  INTO 

PRINT  STACK 

1060 

77 

MOV 

M,  A 

; LC AD  CHARACTER 

1061 

CD320A 

CALL 

PRINT 

; PRINT  THE  CHARACTER 

;  SINCE  A 

CHARACTER 

HAS  BEEN  PRINTED, 

;  All 

ZEROS  SHOULD  NOW  EE  PRINTED. 

1  064 

06FF 

M  VI 

B,  OFFH 

; NO  MORE  LEADING  ZEROS 

1066 

FI 

PREXT: 

POP 

PSW 

1067 

El 

POP 

H 

1068 

C9 

RET 

- 


a 
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**■*%***$**% ****#*******************$****  **%■***■ 
*  * 

*  INTERRRUPT  SERVICE  SUBROUTINE  * 

*  FOR  RST  7.5  (CASSETTE  INTERFACE)  * 

*  * 


1  06  9 

F5 

COUT:  PUSH 

PSW 

1  06  A 

E5 

PUSH 

H 

1  06  E 

D5 

PUSH 

D 

CHECK  STATUS  OF  CASSETTE  DRIVE 
CRDY  IS  SET  WHEN  TEE  CASSETTE  DRIVE 
IS  READY  TO  RECEIVE  DATA 
WHEN  THE  CASSETTE  DRIVE  IS  FIRST 
TURNED  ON,  IT  IS  NOT  READY  TO 
RECEIVE  DATA  UNTIL  IT  IS  OP  TO  SPEED 


1  06C 

3A2820 

LDA 

CRDY 

; CH  ECK  CASSETTE 

1  06F 

A7 

ANA 

A 

; SET  FLAGS 

1070 

C27A10 

JNZ 

DOUT 

;READY  TO  RECEIVE  DATA 

;  NOT  READY 

TO  RECEIVE  DATA 

;  THERFORE 

OUTPUT  A 

DELETE 

1  073 

3E7F 

M  VI 

A,  DELET 

; LOAD  DELETE 

1075 

D308 

OUT 

CASE! 

;OUTPUT  DELETE 

1077 

C3C41 0 

JMP 

EXT 

OUTPUT  DATA  TO  CASSETTE  DRIVE 
OUTD  IS  A  POINTER  WHICH  POINTS  TO  THE 
CHARACTER  IN  THE  CASSETTE  BUFFER  WHICH 
IS  TO  BE  OUTPUT  NEXT 


1  07  A 

2A2320 

DOUT:  LHLD 

OUTD 

107D 

7E 

MOV 

A,  M  ; LOAD  DATA 

107E 

D30  8 

OUT 

CASET 

;  POINT  OUTD  AT  NEXT  CHARACTER 

IN  BUFFER 

1080 

23 

I  NX 

H 

1081 

222320 

SHLD 

OUTD  ;INCREMENT 

OUTD 

CHECK  FOR  END  OF  DATA  TRANSFER 
OTEND  CONTAINS  THE  ADDRESS  OF  THE  LAST 
CHARACTER  TO  BE  OUTPUT 
NEGATE  OTEND  AND  STORE  IN  DE 


1084 

3A2A20 

LDA 

OTEND 

1  087 

2F 

CMA 

1  088 

5F 

MOV 

E,  A 

1089 

3A2B20 

LDA 

OTEND+1 

1 08C 

2F 

CMA 

1  08D 

57 

MOV 

D,  A  ; LOAD  OTEND  INT  DE 

1  08E 

13 

INX 

D  ; NEGATE  OTEND 

• 

9 

DE  NOW  CONTAINS  -OTEND 

• 

• 

HL  CONTAINS  OUTD 

1  08F 

19 

DAD 

D  ;OUTD-OT  END 

• 

t 

CHECK  IF 

ALL  CHARACTER  HAVE  EEEN  OUTPUT 

1090 

7  C 

MOV 

A,  H 

1091 

07 

RLC 

; LO AD  CARRY  EIT 

1092 

DAC410 

JC 

EXT  ; TRANSFER  NOT  COMPLETED 

• 

9 

DATA  TRANSFER  COMPLETED 

• 

9 

WAIT  FOR 

UART  TO  EMPTY 

1095 

DB  09 

CUART:  IN 

C8251  ;READ  UART  STATUS 

. 


. 
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1097 

E604 

ANI 

000001 00B 

1  CS  9 

CA9510 

JZ 

CUART  ; U ART  NOT  EMPTY 

;  0 ART  IS 

EMPTY,  DISABLE  IT 

1  09C 

3E10 

MVI 

A,  1 0H 

109E 

D30  9 

OUT 

C8251  ; DISABLE  TRANSMITTER 

;  CHECK  IF 

THE  CASSETTE  TAPE  IS  FULL. 

;  CEIN  IS 

SET  IF  THE  CASSETTE  IS  FULL 

;  AND  THE 

CASSETTE  SYSTEM  SHOULD  BE  RESET 

1  0  AO 

3A2920 

IDA 

CFIN 

10A3 

A7 

ANA 

A  ;  SET  FLAGS 

10A4 

CAB410 

JZ 

OFF 

;  A  NEW  CASSETTE  HAS  EEEN  INSERTED , 

;  RESET  THE  CASSETTE  SYSTEM 

10A7 

A F 

XRA 

A 

1  0  A  8 

322920 

ST  A 

CFIN 

1  0  AB 

2A3120 

LHLD 

CSCT 

1  OAE 

23 

INX 

H 

1  OAE 

222D20 

SHLD 

CASCT  ;  RESET  TIMER 

;  TURN  ON 

THE  CASSETTE  DONE  LED  AND 

;  TURN  OFF 

THE  CASSETTE  DRIVE 

1  0P2 

3  E04 

M  VI 

A,  04H  ; TURN  ON  FINISHED  LAMP 

1  0B4 

D30A 

OFF:  OUT 

CPORT  ;TURN  OFF  CASSETTE  SYSTEM 

;  CLEAR  CASON.  CASON  IS  A  FLAG  WHICH 

;  INDICATES  WHETHER  OR  NOT  THE  CASSETTE 

;  DRIVE  IS 

TURNED  ON. 

1  OB  6 

AE 

XRA 

A  ;CLE AR  ACCUMULATOR 

10E7 

322C20 

STA 

CASON  ; CASSETTE  OFF 

;  SINCE  IT 

WILL  TAKE  TIME  FOR  THE  CASSETTE 

;  DRIVE  TO 

SLOW  DOWN,  DECREMENT  THE  TIMER 

10EA 

2A2D20 

LHLD 

CASCT 

1  OED 

2B 

DCX 

H  ; DECREMENT  CASSETTE  TIMER 

10BE 

222D20 

SHLD 

CASCT  ;  FOR  TAPE  SLOWDOWN  TIME 

;  RESET  THE  INTERRUPT  FLIP  FLOP 

10C1 

3E10 

M  VI 

A,  1 0H 

1  0C3 

30 

DB 

30H  ; RESET  RST  7.5 

1  0C4 

D 1 

EXT:  POP 

D 

10C5 

El 

POP 

H 

10C6 

El 

PGP 

PSW 

10C7 

FB 

El 

1  0C8 

C9 

RET 

■ 

- 
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*  * 

*  CASSETTE  INTERFACE  SUBROUTINES  * 

*  CSTRT  CONTAINS  THE  STARTING  ADDRESS  * 

*  OF  THE  BUFFER  * 

*  CEND  CONTAINS  THE  ENDING  ADDRESS  * 

*  OF  THE  BUFFER  * 

*  $ 


DATA  TO  THE  CASSETTE  BUFFER  IS  IN  THE 
FOIIOHING  FORMAT 

<GS> ASCII  DATA<DELXCR> 

THE  LAST  LINE  IN  THE  FILE  IS  IN  THE 
FOLLCWI NF  FORMAT 

<GS> ASCII  DATA<DELXF SXFS> 

WHERE  <GS>  IS  A  GROUP  SEPARATOR  (ID) 

<DEL>  IS  A  DELETE  CHARACTER  (7F) 
<CR>  IS  A  CARRIAGE  RETURN  (OD) 

<  ES>  IS  A  FILE  SEPARATOR  (1C) 


SUE,  TO  LOAD  THE  STARTING  ADD.  OF  THE  BUFFER 
FOR  THE  CASSETTE  TAPE  SYSTEM. 


1  0C9 

E5 

CST 

:  PUSH  H 

1  OCA 

CDC701 

CALL 

CHKEY 

;  REA  E  KEYBOARD 

1  OCD 

FE20 

CPI 

i  « 

;IS  CHARACTER  A  SPACE 

1  OCE 

C29E09 

JNZ 

ERROR 

;  NOT  A  SPACE 

• 

t 

A  SPACE  HAS 

BEEN 

RECEIVED,  RECEIVE 

• 

• 

THE  STARTING  ADDRESS 

1  0E2 

CD4E09 

CALL 

GTADD 

; GET  ADDRESS 

1  0D5 

221D20 

SHLD 

CSTRT 

;  LCAE  STARTING  ADDRESS 

• 

9 

INITIALIZE 

THE  BUEFER  POINTER  TO  START 

• 

• 

AT  THE  BEGINNING 

OF  THE  BUEFER 

1  0D8 

222520 

SHLD 

BUFER 

.-INITIALIZE  LOADING  ADD 

1  ODE 

El 

POP  H 

10DC 

C33901 

JMP 

KEYB 

;  RETURN 

1 ODF  E5 
1 OE 0  CDC701 
10E3  FE20 
10E5  C29E09 


1 0E8  CD4E09 
1 OEB  221F20 
1  OEE  El 
10EF  C33901 


; SUB.  TO  LOAD  THE  ENDING  ADDRESS  OF  THE  BUFFER 
; FOE  THE  CASSETTE  TAPE  SYSTEM. 

CEN:  PUSH  H 

CALL  CHKEY  ; READ  KEYBOARD 

CPI  •  1  ;IS  CHARACTER  A  SPACE 

JNZ  ERROR  ; NOT  A  SPACE 

;  A  SPACE  HAS  BEEN  RECEIVED,  RECEIVE 
;  THE  ENDING  ADDRESS. 

CALL  GTADD  ;GET  ADDRESS 

SHLD  CEND  ; LOAD  ENDING  ADDRESS 

POP  H 

JMP  KEYB  ; RETURN 


10F2  3E02 
10F4  D30A 
10F6  AF 
10F7  D30A 


; S  UBROUTINE  TO  TURN  ON  ALARM 
ALM:  M  VI  A,  02H 

OUT  C  PORI 

XR  A  A 
OUT 


CPORT  ‘.TOGGLE  ALARM  FLIP  FLOP 


V 


N 


x 
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10F9 

C33S01 

• 

JMP 

KEYB 

; RETURN 

9 

; S  UBRODT INE 

TO 

TURN 

ON  THE  CASSETTE  DRIVE 

1  OFC 

3E01 

CON: 

M  VI 

A, 

0 1 H 

1  OFE 

D30  A 

OUT 

C  PORT 

;TURN  CN  DRIVE 

1  100 

C33901 

• 

JMP 

KEYB 

; RETURN 

• 

; SUBROUTINE 

TO 

TURN 

OFF  THE  CASSETTE  DRIVE 

1  103 

AF 

CO  F: 

XR  A 

A 

1  104 

D30A 

OUT 

CPORT 

;T0EN  OFE  DRIVE 

1106 

C33901 

• 

JMP 

KEYB 

; RETURN 

; SUBROUTINE 

TO 

SET  SIZE  OF  CASSETTE  TAPE 

1  109 

CDDB08 

CTP : 

CALL 

DECKY 

1  IOC 

32212 0 

STA 

TPLEN 

JSTORE  TAPE  LENGTH 

;  WE 

WISH 

THE 

ALARM 

TO  EE  SOUNDED  2 

1  1 0F  Do 02 

1111  4 F 

1112  063C 
1114  CD4508 


MINUTES  BEFOEE  THE  END  OF  THE  TAPE. 
THEBEFORE  SUETRACT  2  FROM  THE  TAPE 
LENGTH 

SOI  02D 

CONVERT  TO  SECONDS 

MOV  C,  A  ; ICA E  INTO  REG  C 

M  VI  B,  60D 

CALL  MULT8  ;CCNVERT  TO  SECONDS 

BC  NOW  CONTAINS  THE  NUMEER  OF 
SECONDS.  STORE  IN  THE  CASSETTE  COUNTER 


1117 

79 

MCV  A , 

C 

1  118 

322D20 

STA 

CASCT 

1  1 1E 

323120 

STA 

CSCT 

1  11E 

78 

MOV  A, 

B 

1  11F 

322E20 

STA 

CASCT+1 

1122 

323220 

STA 

CSCT+ 1  ; STORE  NEW  VALUE 

1  125 

C33901 

JMP 

KEYB  ; RETURN 

jSUBRODIINE  TO 

OUTPUT  END  OF  FILE  CHAR.  T‘0  TAPE 

;  CLEAR  CBDY • 

THE  CASSETTE  DRIVE  IS  NO 

;  LONGER  READY  TO  RECEIVE  DATA 

1  128 

AF 

STP :  XRA  A 

1  129 

322820 

STA 

CBDY  ; CLEAR  READY  FLAG 

;  TURN  ON  THE 

CASSETTE  DRIVE  AND 

;  ENABLE  THE 

U  ART 

1  12C 

3E0  1 

M  VI  A  , 

0 1 H 

1  12E 

D3  0  A 

OUT 

CPORT  ; TURN  ON  CASSETTE  DRIVE 

1  130 

3E1 1 

M  VI  A , 

1 1H 

1 132 

D309 

OUT 

C8251  ;  ENABLE  UART 

;  BUFER  CONTAINS  THE  ADDRESS  OE  THE  NEXT 

;  AVAILABLE  LOCATION  IN  THE  CASSETTE  BUFFER 

1  134 

2A2520 

LHLD 

BUFER 

;  LOAD  FILE  SEPARATORS 

1 137 

CDBC1 1 

CALL 

LEOF  ; LOAD  FILE  SEPARATOR 

;  SET  THE  END 

OF  FILE  CHARACTER  TO  EE  THE 

;  LAST  CHARACTER  TO  BE  SENT  TO  THE  TAPE 

1  13A 

222A20 

SHLD 

OTEND  ;  L  C  A  D  END  OF  BUFFER 

! , 
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;  OF  THE  BUFFER 


1  13D 

2A1 D20 

LHLD 

CSTRT 

1  140 

222320 

SHLD 

OUTD 

LOAD  CASS.  DATA  PCINTER 

1  143 

222520 

SHLD 

BUFER 

RESET  BUFFER  POINTER 

CFIN  INDICATES  WHETHEE  OE  NOT  THE  CASSETTE 

TAPE  IS  FULL.  CFIN 

IS  SET  SO  THAT  THE 

CASSETTE 

ROUTINE  WILL  RESET  THE  CASSETTE 

SYSTEM  AFTEE  THE  BUFFEE  IS  LOADED  ONTO  TAPE 

1  146 

3EFF 

M  VI 

A,  OFFH 

1  148 

322920 

STA 

CFIN  ; 

CASSETTE  FINISHED 

;  DELAY  1  SECOND 

;  TO  ALLOW 

THE  DRIVE 

TO  SPEED  UP 

1  14  E 

CDC71 1 

CALL 

DELI 

CASSETTE 

DRIVE  IS  NOW  READY 

SET  CEDY 

INDICATING  THAT  THE  DRIVE  IS 

BEADY  TO 

RECEIVE  DATA 

1  14E 

322820 

STA 

CEDY  ; 

ENABLE  DATA  TO  CASSETTE 

1  151 

C3  390 1  JMP 

KEYB  ; 

RETURN 

•SUBROUTINE 

TO  INITIALIZE  CASS.  TAPE  INTERFACE 

1  154 

2A3120  CIN:  L  HID 

CSCT 

1  157 

222D20 

SHLD 

CASCT 

•INITIALIZE  TAPE  COUNTER 

1  1 5  A 

2A1D20 

LHLD 

CSTRT 

1  15D 

222520 

SHLD 

BUFER 

INITIALIZE  BUFFER  PCINTER 

1160 

C33901 

JMP 

KEYB 

RETURN 

•SUBROUTINE 

TO  ENTER  TEXT  ONTO  CASSETTE  TAPE 

CE  (CTRL  M) 

WILL  CAUSE  CARE  RET  AND  LINE  FEED 

BS  (CTRL  H) 

WILL  CAUSE  A  BACKSPACE 

ETX  (CTRL  C)  RETURN  CCNTRCL  TO  THE  MONITOR 

1  163 

CD000A  CPE:  CALL 

HOME 

LINE  FEED 

1  166 

CD260A 

CALL 

RETN 

CARRIAGE  RETURN 

1  169 

2A2520 

LHLD 

BUFER 

POINT  HL  AT  BUFFEE 

1  16C 

CDB71 1 

CALL 

NLINE 

LCAD  GRCUP  SEPARATOR 

1  16F 

CDAE1 1 

CALL 

CRLF 

CARR..  RET.  AND  LINE  FEED 

1  172 

CDB71 1 

CALL 

NLINE 

LOAD  GRCUP  SEPARTATOR 

;  A  CHARACTER  IS  RECEIVED  FROM  THE  KEYBOARD 

1175 

CDC701  EEC  1 :  CALL 

CHKEY 

;  RE AD  KEYEOARD 

1  178 

FEOD 

CPI 

CRET 

1  17  A 

CA8C1 1 

JZ 

CART1  .-CARRIAGE  RETURN 

;  NOT  A  CARRIAGE  RETURN 

1  17D 

FE08 

CPI 

BAKSP 

1  17  F 

CA9B1 1 

JZ 

BACK  1 

BACKSPACE 

;  NOT  A  BACKSPACE 

1  182 

FE03 

CPI 

ETX 

1  184 

CAA511 

JZ 

RETRN 

1  187 

77 

MOV 

M,  A 

; LOAD  CHAR.  INTO  BUFFER 

1  188 

23 

I  NX 

H 

; INCREMENT  BUFFER  POINTER 

1189 

C37511 

JMP 

REC1 

; RECEI VE  ANOTHER  CHARACTER 

;  CARRIAGE 

RETURN  HAS  EEEN  RECEIVED 

1  18C 

CD000A  CAET1:  CALL 

HOME 

;LINE  FEED 

1  18F 

CD260A 

CALL 

RETN 

;  C  AFRI AGE  RETURN 

1  192 

CDAE1 1 

CALL 

CRLF 

; C A RR.  RET.  AND  LINE  FEED 

1 195 

CDB71 1 

CALL 

NLINE 

; LCAD  GROUP  SEPARATOR 

S 
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1198 

C3751 1 

JMP 

REC 1 

« 

EACKSFACE 

HAS  BEEN 

RECEIVED 

1  19B 

CDD009  EACK1:  CALL 

MO  VL 

.‘BACKSPACE 

1  19E 

CDD009 

CALL 

MOVE 

1  1 A 1 

2B 

DCX 

H 

1  1A2 

C3751 1 

JMP 

REC1 

1  1A5 

CDAE11  RETRN:  CALL 

CRLF 

; CA PR,  RET-  &  LINE  FEED 

1  1A8 

222520 

SHLD 

BUFER 

; RESTORE  EUFFER  POINTER 

1  1 AB 

C33901 

JMP 

KEYB 

;  RETURN  EROM  ROUTINE 

SUBROUTINE 

TO  PUT  CARRIAGE  RETURN  ON  TAPE 

LINE  FEED  IS  SUPPLIED  BY  MTS 

CARRIAGE 

RETURN  IS 

PPECEEDED  BY  A  DELETE. 

HL  IS  ASSUMED  TO  CONTAIN  THE  BUFFER  POINTER 

1  1 AE 

3E7E  CRLF:  HVI 

A,  DELE! 

1  1 B  0 

77 

MOV 

M,  A 

; LOAD  A  DELETE 

1  IE  1 

23 

I  NX 

H 

1  1E2 

3E0D 

M  VI 

A,  CRET 

1  1B4 

77 

MOV 

M  ,  A 

; LOAD  CARR.  RETURN 

1  1B5 

23 

I  NX 

H 

1  1B6 

C9 

RET 

SUER,  TO  LOAD  GROUP 

SEPARATOR  EOR  NEW  LINE 

HL  IS  ASSUMED  TO  CONTAIN  THE  BUFFER  POINTER 

1  1E7 

3  El D  NLINE:  MVI 

A,  1 DH 

1  1B9 

77 

MOV 

M  ,  A 

; LOAD  GRCUE  SEPARATOR 

1  1 EA 

23 

I  NX 

H 

1  IBB 

C9 

RET 

SUBROUTINE 

TO  LOAD  FILE  SEPARATORS 

A  DELETE 

PRECEEDS 

THE  FILE  SEPARATOR 

1  1EC 

3E7F  LEOE :  MVI 

A,  7 FH 

1  1BE 

77 

MOV 

M,  A 

; LOAD  DELETE 

1  1EF 

23 

I  NX 

H 

1  ICO 

3E1C 

M  VI 

A,  1 CH 

1  1C2 

77 

MOV 

fi,  A 

;LOAD  FILE  SEPARATOR 

1  1C3 

23 

I  NX 

H 

1  1C4 

77 

MOV 

M,  A 

; LOAD  FILE  SEPARATOR 

1  1C5 

23 

I  NX 

H 

1  1C6 

CS 

RET 

•SUBROUTINE 

TO  DELAY 

ONE  SECOND 

1  1C7 

D5 

DELI:  PUSH 

D 

1  1C8 

C5 

PUSH 

B 

1  1C9 

F5 

PUSH 

PStf 

1  1CA 

OEFF 

M  VI 

C,  OFFH 

1  ICC 

11FFFF  DEL2 :  LXI 

D,  OFFFFH 

; LOAD  COUNTER 

1  ICE 

IB 

DEL3:  DCX 

D 

;  DECREMENT  TIMER 

1  IDO 

7B 

MOV 

A,  E 

1  ID  1 

A7 

ANA 

A 

1  1D2 

C2CE 1 1 

JNZ 

DEL3 

1  1D5 

7A 

MOV 

A  r  D 

1  1D6 

A7 

ANA 

A 

1  1D7 

C2CF1 1 

JNZ 

DEL3 

f 


\ 
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1  IDA 

79 

;  INSIDE  LOOP 
MOV  A, 

IS  DONE 

C 

1  IDE 

A7 

ANA  A 

1 1DC 

CAE411 

JZ 

ONSEC 

1  IDF 

0E00 

M  VI  C, 

00H 

1  IE  1 

C3CC1 1 

JMP 

DEL2  ; NOT  DONE  YET 

1  1E4 

FI 

ONSEC:  POP  PSW 

1  1E5 

Cl 

POP  B 

1  1E6 

D  1 

POP  D 

1  1E7 

C9 

SET 

1  1E8 

41 4C4D 

;  *  * 

;*  JUMP  TABLE  FOB  KEYBGABD  ENT SI ES  * 

j  *  * 

KYTAE:  DB  * ALM  * 

1  1EB 

F210 

DR 

ALM 

1  1ED 

414E54 

DB 

•ANT* 

1  IF  0 

F50A 

DR 

ANT 

1  IF  2 

43  454E 

DB 

'CEN* 

1  1 F  5 

DF  1 0 

DR 

CEN 

1  1F7 

43484E 

DB 

*  CHN  1 

1  IF  A 

720C 

DR 

CHN 

1  1FC 

43494E 

DB 

•  CIN ' 

1  IFF 

5411 

DR 

CIN 

1  20  1 

434C52 

DB 

1 CLR  ' 

1204 

74  OF 

DR 

CIS 

1206 

434F46 

DE 

'COF* 

1209 

0311 

DR 

COF 

1  20B 

434F4E 

DB 

•CON' 

1  20E 

FC  1 0 

DR 

CON 

1210 

435052 

DB 

'CPE* 

1213 

6311 

DR 

CPE 

1215 

435349 

DE 

•CSI 1 

1218 

3D0F 

DR 

CSI 

1  2  1 A 

435354 

DB 

•CST  • 

1  2  1 D 

C910 

DR 

CST 

1 2 1 F 

43545  C 

DB 

•CTP* 

1222 

0911 

DR 

CTP 

1  224 

444953 

DB 

•DIS' 

1  227 

5E0F 

DR 

DIS 

1229 

44504D 

DB 

•DPM* 

1  22C 

5802 

DR 

DPM 

1  22E 

445350 

DB 

•DSP' 

1231 

D603 

DR 

DSP 

1233 

464C47 

DB 

1  FLG ' 

1236 

320E 

DR 

FLG 

1  238 

494E50 

DB 

*  INP  * 

1  23B 

2C03 

DR 

INP 

123D 

4D4C43 

DB 

*  MLC  1 

1240 

4C0F 

DR 

MLC 

1  242 

4F5554 

DB 

'OUT* 

1245 

8303 

DR 

OUTP 

1247 

504354 

DB 

1 PCT* 

.  - 1 


.  •• 


v":  ,  r 
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1  24  A 

67  OF 

DU 

PCT 

1  24C 

504F46 

DB 

1  POF 

1  24  F 

2B0E 

DM 

POF 

1251 

50504D 

DB 

•PPM 

1254 

8F0F 

DU 

PPM 

1  256 

504F53 

DB 

•  POS 

1259 

3  AO  E 

DU 

POS 

125E 

505249 

DB 

•PRI 

125E 

1  AO  E 

DU 

PRI 

1  260 

505254 

DB 

•PET 

1263 

C80  A 

DW 

PRT 

1  265 

52554E 

DE 

•RUN 

1268 

1503 

DU 

RUN 

1  26  A 

534 143 

DB 

•SAC 

1  26  E 

C40E 

DU 

SAC 

126F 

534349 

DB 

•SCI 

1272 

3 1  0  F 

DU 

SCI 

1274 

53544D 

DE 

'  STM 

1277 

CD02 

DU 

STM 

1279 

53545  C 

DB 

•  STP 

1  27C 

2811 

DU 

STP 

1  27E 

544 14E 

DB 

•TAN 

1281 

550F 

DU 

TAN 

1  283 

54494D 

DB 

•TIM 

1286 

9F0E 

DU 

TIM 

1288 

545354 

DB 

•  TST 

126E 

4  1 0  E 

DU 

TST 

%%%  ft*  %  %  %  %  %  %  %  *  % 


*  * 

*  INTERRUPT  SERVICE  SUBROUTINE  * 

*  FOR  RST  6.5  (REAL  TIME  CLOCK)  * 

*  THIS  INTERRUPT  ROUTINE  ALSO  CONTROLS  THE  * 

*  SCANNING  OF  THE  ANTENNA  SYSTEM.  * 

*  BUEER  A  POINTER  TO  THE  NEXT  AVAILABLE  * 

*  LOCATION  IN  THE  EUFFER  MEMORY  * 

*  OUTD  A  POINTER  TO  THE  NEXT  CHARACTER  * 

*  TO  BE  OUTPUT  TO  THE  CASSETTE  SYSTEM  * 

*  ND AT  THE  NUMBER  OF  CHARACTERS  CONTAINED  * 

*  IN  THE  NEXT  TWO  REAEINGS  * 

*  * 


1800 

OfiG 

1800H 

1800 

F5 

PUSH 

PSW 

1  801 

C5 

PUSH 

B 

1802 

D5 

PUSH 

D 

1803 

E5 

PUSH 

H 

;  SET  PORT 

HIGH  AT  START  OF  ROUTINE 

1  804 

3EFF 

M  VI 

A ,  OFFH 

1806 

D311 

OUT 

PORT 

;  RESET  FLIP  FLOP  &  ENABLE  INTERRUPTS 

1808 

3E40 

M  VI 

A ,  0 1 000000 E  ; RESET  FLIP  FLCP 

180A 

30 

DB 

30H  ; SIM 

1  80  E 

3EC0 

M  VI 

A,  1 1 000000E  ; ENABIE  FLIP  FLOP 

1 80D 

30 

DE 

30H  ;SIM 

A 

187 


1  80E 

FB 

El 

f 

INCREMENT  REAL  TIME  CLOCK 

1  8  OF 

21  1720 

IXI 

H,  SECO 

; PCI  NT  INDEX  REG. 

1812 

7E 

MOV 

A,  M 

; R E AD  SECO 

1813 

FEO  9 

CPI 

9 

1815 

CA1C18 

JZ 

GSEC1 

; SECO  IS  9 

1818 

34 

INR 

M 

JINCREMENT  SECO 

1819 

C36C18 

JMP 

DONE 

TIME  IS 

XX : XX: X9 

CLEAR  LS 

DIGIT  OF 

SECOND 

INCREMENT  MS  DIGIT 

OF  SECONDS 

1  8 1 C 

AF  GSEC1:  XRA 

A 

1  81D 

77 

MOV 

M ,  A 

; CLEAR  SECO 

18  IE 

23 

I  NX 

H 

1  81F 

7  E 

MOV 

A,  M 

; R E AD  SEC 1 

1  820 

FE05 

CPI 

5 

1822 

CA2918 

JZ 

GMINO 

; SEC  1  IS  5 

1825 

34 

INR 

M 

JINCREMENT  SEC1 

1  826 

C36C18 

JMP 

DONE 

TIME  IS 

XX: XX: 59 

CLEAR  MS 

DIGIT  OF 

SECONDS 

INCREMENT  LS  DIGIT 

OF  MINUTES 

1  829 

AF  GMINO:  XRA 

A 

1  82  A 

77 

MOV 

M  t  A 

; CLEAR  SEC1 

182B 

23 

INX 

H 

182C 

7E 

MOV 

A,  M 

;READ  MINO 

1820 

FEO  9 

CPI 

9 

1  82F 

CA3618 

JZ 

GMIN1 

;MIN0  IS  9 

1832 

34 

INR 

M 

JINCREMENT  MINO 

1833 

C36C18 

JMP 

DONE 

TIME  IS 

XX : X9: 59 

CLEAR  LS 

DIGIT  OF 

MINUTES 

INCREMENT  MS  DIGIT 

OF  MINUTES 

1836 

AF  GMIN1:  XRA 

A 

1  837 

77 

MOV 

M  t  A 

; CLEAR  MINO 

1838 

23 

INX 

H 

1839 

7E 

MOV 

A ,  M 

JREAD  MINI 

1  83  A 

FEO  5 

CPI 

5 

1  83C 

CA4318 

JZ 

GHRO 

; M IN  1  IS  5 

1  83F 

34 

INR 

M 

JINCREMENT  MINI 

1  840 

C36C18 

JMP 

DONE 

TIME  IS 

XX: 59:59 

CLEAR  MS 

DIGIT  OF 

MINUTES 

INCREMENT  LS  DIGIT 

OF  HOUR 

1843 

AF  GHRO :  XRA 

A 

1844 

77 

MOV 

M  ,  A 

j  CLEAR  MINI 

1645 

23 

INX 

H 

1846 

7E 

MOV 

A,  M 

jREAD  HRO 

1  647 

FE03 

CPI 

3 

1849 

CA5C18 

JZ 

GTHRE 

jHRO  IS  3 

1  84C 

FE09 

CPI 

9 

1  84E 

CA5518 

JZ 

GHR1 

;HR0  IS  9 

1  851 

34 

INR 

M 

JINCREMENT  HRO 

1852 

C36C18 

JMP 

DONE 

AT  CLOCK 


1 :  i 


- 


i 
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TIKE  IS  X9 : 59: 59 
CLEAR  LS  DIGIT  OF  HOUR 
INCREMENT  KS  DIGIT  OF  HOUR 


1855 

AF 

GHR 1 :  XRA 

A 

1  656 

77 

MOV 

M, 

A 

; CLEAR  HR0 

1857 

23 

I  NX 

H 

1  858 

34 

INR 

M 

•.INCREMENT  HR  1 

1859 

C36C18 

JMP 

DONE 

;  TIKE  IS  X3 : 

59:59 

185C 

23 

GTKRE:  INX 

H 

1  65D 

7E 

MOV 

A, 

M 

; READ  HR  1 

1  85E 

FEO  2 

CPI 

2 

1  860 

CA6818 

JZ 

ZERO 

;HR1  IS  2 

1863 

2B 

DCX 

H 

1  864 

34 

INR 

M 

;  INCREMENT  HRO 

1865 

C36C18 

JMP 

DONE 

;  RESET  CLOCK 

TO  ZERO 

1868 

AF 

ZERO:  XRA 

A 

1  869 

77 

MOV 

Mr 

A 

; CLEAR  HE  1 

1  86A 

2B 

DCX 

H 

186B 

77 

MOV 

M  r 

A 

;CLEAR  HRO 

;  REAL  TIME 

CLOCK  HAS  EEEN  INCREMENTED 

;  CHECK  FOE 

ALARM  CONDITION 

1  86C 

3A3020 

DONE:  LD A 

ALRM 

; CHECK  ALARM  FLAG 

1  86F 

A7 

ANA 

A 

;  SET  FLAGS 

1870 

C27D18 

JNZ 

CALRM 

; ALARM  IS  CN 

;  ALARM  IS 

NOT  ON, 

;  CHECK  IF 

ALARM  HAS 

BEEN  ACKNOWLEDGED 

1  873 

3A2920 

LDA 

CFIN 

;  HAS  ALARM  BEEN  ACK. 

1  876 

A7 

ANA 

A 

; SET  FLAGS 

1  877 

C2BA18 

JNZ 

DO  N 1 

; ALARM  HAS  EEEN  ACK. 

;  NO  ALARM 

CONDITION 

EXISTS 

1  87  A 

C39A18 

JMP 

DON2 

;  ALARM  IS 

ON 

,  SEE  IF  DISABLE  SWITCH  IS 

SET 

1  87D 

1 

+CALRM:  READ 

ALARM 

;CHECK  ALARM  SWITCH 

1  87  E 

1  D5 

+  PUSH 

D 

;  SAVE  CE  REGISTERS 

1  87E 

1  1603 

+  M  VI 

D, 

ALARM 

; STORE  SWITCH  NUMBER  IN 

1880 

1  DE06 

+  IN 

SWCH 

; READ  THE  SWITCH  INPUTS 

1  882 

1  IF 

♦NO:  EAR 

; ROTATE  DO  INTO  CARRY 

1883 

1  15 

♦  DCR 

D 

;  DECREMENT  COUNTER 

1  884 

1  C28218  +  JNZ 

NO 

; NOT  CORRECT  SWITCH 

YET 

1887 

1  D 1 

+  POP 

D 

;  RESTORE  EE  REGISTERS 

1  888 

DABA18 

JC 

DON1 

; ALARM  STILL  ON 

;  ALARM  HAS 

BEEN  DISABLED 

;  SET  END  CF 

FILE  FLAG.  END  OF  FILE 

;  CHARACTERS 

WILL  BE 

LOADED  ONTO  TAPE. 

1  88E 

3EFF 

M  VI 

A, 

0FFH 

1  88D 

323320 

SIA 

EFILE 

;  ALARM  HAS 

BEEN  ACKNOWLEDGED 

1890 

322920 

STA 

CFIN 

;  ALARM  IS 

NO 

LONGER 

ON 

1893 

AF 

XRA 

A 

1894 

323020 

STA 

ALRM 

;CLEAR  ALARM  FLAG 

1897 

C3BA1 8 

JMP 

DON  1 

■ 

i ; 

ffc  .  0  «  ,,-u 


\ 

\ 


189 


;  NO  ALARM  CONDITION  EXISTS 
;  IS  CASSETTE  SYSTEM  ON? 


1  89A 

3A2C20 

DON  2:  LD A 

CASON  ;IS  CASSETTE  ON? 

1  89E 

A7 

ANA 

A  ;  SET  FLAGS 

1  89E 

CABA18 

JZ 

DON1  .'CASSETTE  NOT  ON 

• 

• 

CASSETTE 

SYSTEM  IS  ON,  DECREMENT  TIMER 

1 8  A 1 

2A2D20 

LHLD 

CASCT  ; LCAD  CASSETTE  TIMER 

18A4 

2B 

DCX 

H  ;  DECREMENT  TIMER 

18A5 

222D20 

SHLD 

CASCT  ; STCRE  TIMER 

• 

f 

CHECK  TIMER 

18A8 

7C 

MOV 

A,  H 

1  8A9 

A7 

ANA 

A  ;  SET  FLAGS 

1  8A  A 

E2BA18 

JP 

DON  1  .'TAPE  NOT  PULL 

t 

TAPE  IS 

FULL,  SOUND  ALARM 

1  8AD 

3E03 

M  VI 

A,  03H 

1  8AF 

D30  A 

OUT 

CPORT 

18E1 

3E01 

M  VI 

A,  01H 

18B3 

D3  0  A 

OUT 

CPORT  ; TOGGLE  ALARM  FLIP  FLOP 

f 

ALARM  IS 

ON 

18B5 

3  EFT 

M  VI 

A,  0FFH 

18B7 

323020 

STA 

ALRM  ; SET  ALARM  FLAG 

IS  SCANNING  FLAG  ACTIVE? 

1  8B  A 

3 A 1 6  20 

DON1:  LDA 

SCAN  ; LCA C  SCAN  FLAG 

1  8BD 

A7 

ANA 

A  ; SET  FLAGS 

1  8BE 

CA171A 

JZ 

EXIT  ; DO  NOT  SCAN 

« 

SCANNING 

FLAG  IS  ACTIVE 

< 

CHECK  IF 

SCAN  INTERVAL  IS  OVER 

18C1 

3A3422 

LDA 

SCAN2 

1  8C4 

3D 

DCR 

A 

18C5 

323422 

STA 

SCAN2  ; DECREMENT  COUNTER 

18C8 

C2171A 

JNZ 

EXIT  ;DC  NOT  SCAN  YET 

SCAN  THIS  TIME,  RESET  SCAN  COUNTER 

1  8CB 

3A3322 

LDA 

SCAN  1 

18CE 

323422 

STA 

SCAN2  ; RESET  COUNTER 

CHNL  CONTAINS  THE  CHANNEL  NUMBER  SET 

BY  THE  CHN  INSTRUCTION.  WHEN  THE  SYSTEM 

IS  SET  TO  SCAN,  THE  CHANNEI  WILL  EE 

CHANGED. 

THE  CHANNEL  NUMEER  IS 

THEREFORE  CLEARED  SO  THE  DISPLAY 

ROUTINE 

CAN  INDICATE  THAT  NO  CHANNEL 

IS  SET. 

1  8D1 

A  F 

XRA 

A 

18D2 

323520 

STA 

CHNL  ;CHANNEL  WILL  EE  CHANGED 

SCAN  ANTENNAS  AND  STORE  DATA 

18D5 

213B20 

LXI 

H,  TABLE  ; POI NT  HL  AT  TABLE 

SET  ANTENNA  NUMBER  TO  0,  SET  X/Y  BIT 

1  8D8 

3E80 

M  VI 

A,  80H 

18DA 

321321 

STA 

ANTNO  INITIALIZE  ANTENNA  CODS 

1  8DD 

0E05 

STRT:  M  VI 

C,  05  ; LOA D  CHANNEL  COUNTER 

1  6DF 

113620 

LXI 

D,  CHN1  ; POINT  DE  AT  CHANNEL  TABLE 

;  CHECK  TO 

SEE  IF  THERE  ARE  ANY 

;  ACTIVE  CHANNELS 

1 8E2 

1 A 

LDAX 

D  ; LOAD  CHANNEL  CODE 

1  8E3 

A7 

ANA 

A  ;  SET  FLAGS 

190 


18Z4 

CA3F19 

JZ 

NCH  ; NO  ACTIVE  CHANNELS 

;  TORN  ON 

THE 

CHANNEL 

18E7 

3A1321 

LDA 

ANTNO 

1  SEA 

D310 

OUT 

ANTA  .‘TORN  ON  RELAY 

;  DELAY  2 

MSEC 

1  6  EC 

3EB0 

MVI 

A, 

OBOE 

1  SEE 

D300 

OOT 

MODEA  ; SET  TIMER  MCDE 

16E0 

3ZF4 

MVI 

A , 

0F4H 

1  6f  2 

D301 

OOT 

TIKA2  ; OOTPOT  IS  BYTE 

1  81 4 

3Z0  1 

MVI 

A, 

0 1 H 

1  8F6 

D30  1 

OOT 

TIMA 2  ; OOTPOT  MS  BITE 

1  8F8 

1 

+TSTT1:  READ 

2TST 

1  6f  8 

1  D5 

+  POSH 

D  ; S A VE  EE  REGISTERS 

1  6E9 

1  1607 

♦  MVI 

D, 

1 1ST  ;  STORE  SWITCH  NOMBZB 

18FE 

1  EE06 

+  IN 

SBCE  ;  REAL  THE  SWITCH  INPO 

1  8f  D 

1  IF 

♦  SC:  EAR 

; ROTATE  DO  INTO  CARRY 

1  SEE 

1  15 

♦  DCR 

D 

; DECREME  NT  CCONTER 

1  8EF 

1  C2FD18  +  J  NZ 

NO  ;  NOT  CORRECT  SWITCH  I 

1902 

1  D 1 

+  POP 

E  ; RESTORE  IE  REGISTERS 

1503 

D2F818 

JNC 

TSTT1  ; TIMER  NOT  DONE  YET 

;  DELAY  IS 

OV 

EB,  ANTENNA  IS  READY 

;  OOTPOT  THE 

CHANNEL  TO  THE  RAEIG 

1  906 

1 A 

ANTON:  LEAX 

D 

; LOAD  CHANNEL  CODE 

1  907 

A7 

ANA 

A 

; SET  FLAGS 

1  508 

CA3F19 

JZ 

NCH  ; NO  ACTIVE  CHANNEL 

1 90B 

D314 

OOT 

CEANL  jOOTPOT  CHANNEL  CODS 

;  TORN  OF 

THE 

FILTER /  THE  FILTER  WILL 

IN  D 


AUTOMATICALLY  TORS 


BACK  CK  BrrCii, 


1  90D 

D315 

• 

f 

THE  DELAY  IS 
OOT 

OVER. 

FILTH 

; TORN  OFF  FILTER 

1  90F 

1511 

3E30 

D300 

• 

V 

DELAY  3  MSEC 
MVI  A, 
OOT 

OBOH 

MODEA 

; SET  TIMER  MODE 

1913 

1915 

3EEE 

D3C1 

MVI  A, 
OOT 

OEEH 
TIMA  2 

; OOTPOT  LS  BYTE 

1917 

1919 

3E02 

D301 

MVI  A, 
OOT 

02H 

TIMA2 

; OOTPOT  MS  BYTE 

1  51E 

1 

♦  IS 

TT:  EEAD 

TTST 

1  9  1  E 

1  D5 

+ 

POSH 

D 

; SAVE  EE  REGISTERS 

1  SIC 

1  1607 

+ 

MVI  D, 

TTST 

;  STORE  SWITCH  NUMBER  IN 

1  9 1 E 

1  DEO  6 

+ 

IN 

SUCH 

; REAL  THE  SWITCH  INPUTS 

1920 

1  IF 

♦  NO 

:  EAR 

; ROTATE  DO  INTO  CARRY 

1921 

1  15 

♦ 

DCR  D 

;  DECREMENT  CGONTER 

1  92  2 

1  C22G19  * 

J  NZ 

NO 

; N CT  CORRECT  SWITCH  YET 

1525 

1  D 1 

♦ 

PCP 

D 

; RESTORE  LE  REGISTERS 

1926 

D21E19 

JNC 

TSTT 

; TIMER  NOT  DONE  YET 

1929 

D312 

9 

• 

9 

DELAY  IS  OVER 

START  A/D  CONVERTS 
OUT  STCON 

B 

; START  CONVERSION 

1  S2B 

1 

• 

♦  BA 

WAIT  FOR  A/D 
DC:  READ 

CONVERTER  TO  FINISH 

ECC  ;CCN VERSION  DONE? 

1  S2B 

1  D5 

♦ 

POSH 

D 

; S AVE  DE  REGISTERS 

192C 

1  1604 

♦ 

MVI  D, 

ECC  ; 

STORE  SWITCH  NOMBER  IN 

1  92E 

1  DE06 

* 

IN 

SUCH 

; READ  THE  SWITCH  INPOTS 

191 


1930 
1  531 


1  IP 
1  15 


♦  HO: 

♦ 


EAR 

DCS 


; PCI  AT  P  DO  INTC  CARRY 
:  DECREMENT  C C U H I 2 S 


1  532 

1  C23019 

♦  JNZ 

SO 

;  N CT  CORRECT  SKI' 

1935 

1  D 1  ♦ 

POP 

D 

jRESTOFZ  DE  RZGZ 

1536 

D22E  15 

JKC 

R  ADC 

; CHECK  AGAIN 

;  CONVERSION  IS  FINISHED 

1535 

DB 1 3 

IN 

ADCIN 

; RE AD  A/D  CCN7EB 

1S3B 

2? 

CMA 

1  S3C 

D680 

SUI 

8QH 

;CCN VEFT  TO  TRUE 

1  S3  E 

77 

MO? 

M,  A 

.•STORE  IK  TA ELE 

;  POINT  HL 

AT  NEXT 

TABLE  LOCATION 

1  53E 

23 

NCH:  INX 

H 

;  I  NCR  Z  ME  NT  PCI  NT 

;  ARE  THERE 

MORE  CHANNELS  TG  CEECK 

1  540 

OD 

DCR 

; DECREMENT  CEAHN 

154  1 

CA4619 

JZ 

NCHA 

; THIS  ANTENNA  IS 

;  THERE  ARE 

MORE  CH 

ANN ELS  TO  CEECK 

1544 

13 

INX 

D 

; INCREMENT  CEANN 

1545 

C3061S 

JSP 

ANTON 

;F.E AD  NEXT  CHANS 

1548 
1  94r 
1  94C 

1  S4P 
1951 

1  954 
1956 

1559  C5DD18 


3A1321 

3C 

321321 

F295 

CA5C19 

PE  1 6 
CA6313 


FINISHED 


;  All  CHANNELS  HAVE  EEEN  CHECKED,  ARE 
;  All  ANTENNAS  DONE? 

NCHA:  LDA  AHINO  ;?.EAD  ANTENNA  NUMBER 

IKE  A 

ST A  ANTNC  ; I NCEZMEKT  ANTENNA  SDMBEj 

X  ANTENNAS  DCSE? 

CPI  55H  ; ANTENNA  X21? 

JZ  DOY  ; X  ANTENNAS  ARE  DOSE 

Y  ANTENNAS  DONE? 

CPI  22  ; ANTENNA  Y22  (TEST)? 

JZ  IDAT  ; ALL  ANTENNAS  ARE  CONE 

FINISHED,  CHECK  NEXT  ANTENNA 
JKP  STBI 

ANTENNA  NUMBER  TC  0, 

S  THE  X/Y  BIT- 


ARE 


ARE 


NOT 

SET 
Cl  EA 


1  95C 
195D 
I960 


AF 

321321 

C3DD18 


AT  Y  RELAYS 


DOY:  XRA  A 

STA  ANTNO  ; POINT 

JMP  STRT 

SCANNING  IS  FINISHED 
CALCULATE  TRANSMITTER  POSITIONS 
LOAD  TRANSMITTER  POSITIONS  INTO 


1 5oC  CD031E 


1  eMPOR An Y  BUFFER 


1963 

CD6015 

ID AT :  CALL 

LOADA 

;  LOAD  TIME 

INTO  TEM 

1  566 

CDBE 1 B 

CALL 

IDTME 

;  SET  ACTIVITY  FLAGS 

1565 

CD2F1C 

CALL 

AC1AD 

; LOAD  LOCATIONS 
POE ARY  ED EPEE 
; LCA E  TIME 


1  96F 
1  972 
1573 


3A3722 

3D 

323722 


;  SET  ACTIVITY 
IF  THERE  IS  A  TRANSMITTER  NITHIN  DISTC 
OF  THE  MASTER  TRANSMITTER,  INCREASE 
THE  CASSETTE  STORE  RATE- 

CALL  CSINC  ;  SHOULD  PATE  BE  INCREASED 

SEOUIE  THE  CASSETTE  DATA  EE  LOADED 
DURING  THIS  SCAN  INTERVAL 
LDA  CASI2 

DCR  A 
SI  A 


CASI2  ; DECREMENT  CASS.  COUNTER 


'92 


1  976 

C2A519 

• 

t 

JSZ  ISOS  ; DC  505  SIC??  DATA 

CASSETTE  I5TFBY AL  CTZ? ,  5ZSZT  C0USTZ5 

1979 

3A3622 

LEA  CASH 

197C 

3237  22 

• 

9 

51 A  CA5I2  ; E ZSZI  CASSETTE  CCD  ME? 

SET  ?LA 3S 

197? 

CD  151? 

CALL  STIA5  ;XZST  A3TZI 5A  FLAGS 

1982 

CE4 1 1? 

m 

9 

• 

• 

CALL  SIArL  ; ABCYE/5E 1CB  FLAGS 

DC  AD  CASSATT*  53??"-  il"H  A5I 

DATA  IZICZ  HAS  CnAIGED 

1965 

CD1? 1 A 

• 

9 

CALL  LCDZC  ; LCAD  DATA  ONTO  CA53ZTIZ 

SZCDLD  THE  DATA  FHIITrE 

1  986 

3 A2  ?  2  2 

LEA  r 2OF 

1  96? 

A7 

A5A  A  ; SIT  FLAGS 

1  96C 

CAA515 

9 

• 

JZ  ISOS  ; DC  SOT  PHIS! 

PEIITZZ  IS  Z5A5LZD ,  SECOLD  TZZ  DATA 
cl  P5IITZD  D0FI5G  TZTS  SCA5  IMZZTA1 

196? 

51.2222 

LDA  FISH 

1992 

3D 

DCE  A 

1993 

3  23222 

SI  A  F I S  T 1  j  DEC.  irr_  >  i  rr  COuSTz? 

1996 

C2A519 

m 

9 

JSZ  ISCS  ; DC  5CT  PZIST 

FEIST  ISTZRfAL  IS  CTZ5 ,  EZSZI  COUSTEB 

1999 

313122 

LDA  FIST 

1  99C 

3^32zz 

m 

9 

• 

V 

SI A  FIST  1  ; ZZ5ZT  FZISTZZ  COJSTZZ 

ZDTZ  IZ-FCFAZI  ZDZZZr  ISTC  TZZ 

ir  r  j.  S  _ 

199? 

CE5Z13 

• 

t 

CALL  LDFZT  ;  LCAD  FPIMZ5  ?oP??5 

F3I5I  TZ?  DATA 

19A2 

CDo^tl? 

» 

CALL  FIT SI  ;  PHI  SI  SATA 

IS  CASSETTE  51 ADI  TO  TIC ZIYI  DATA? 

1915 

3A  2620 

ISOS:  LDA  C1DI 

1  9A6 

A7 

ASA  A  ; SEX  FLAGS 

1  9  AS 

CAD? 1 9 

• 

9 

JZ  KFDI  ;D?I¥E  C5  ZDT  SCT  ?I!DI 

CHECK  ?C5  FELL  50EEE 

1  9  AC 

2A2520 

LnLD  bofiS 

1  9  A? 

?B 

IC5G 

1SE0 

2A2 1 20 

L3LD  SEAT 

1SE3 

19 

DAD  D  ; ADD  S'DAT  &  rDFEE 

19E4 

3  A  1  ?  2  0 

LDA  CESD  ; LCAD  CESD  (LCi) 

1  9E7 

4.  r 

CEA 

1  Sr  6 

5? 

EOT  E  t  A  ;LCAD  Z 

1  Sr  9 

3A2020 

LDA  CISD+1  ; LOAD  CISC (HIGH) 

1  9?  C 

2r 

CHA 

1  SEE 

57 

HOT  D,  A  ; LOAD  E 

1  Sr? 

13 

I  SI  D  ;  5  EG  ATE  .CESD 

1  SEP 

19 

DAD  D  ; ADD  TO  EL 

1  SCO 

7  C 

HOT  A,  E 

1  SCI 

07 

ELC  ;LCAE  CAE5I  Eli 

1  9C2 

DA  1 7 1 A 

• 

9 

JC  ZHT  ;30FE3*5DAT<CISD 

r 0 ? ? Z 5  IS  FULL,  IIITIALIZZ  CASSETTE  5I5TIE 

19C5 

3E01 

HTI  A,  DID 

19C7 

32272C 

STA  CCST  ; LCAD  CCDSTZ5 

1  9C  A 

3?0 1 

ATI  A,  013 

1  9CC 

D30A 

OUT  CF05T  ;T055  CS  CASSETTE 

1  9C? 

A? 

ISA  A 
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19CF 

322620 

STA 

CEDI 

; DEI YE  C5  EOT  NCT 

1  9L2 

32  FF 

*71 

A,  OF  EE 

19D4 

322C20 

STA 

CASON 

;  DF.I7E  IS  CN 

m 

9 

INITIALI 

ZE  CASSETI 

E  INTERFACE 

19D7 

3211 

*71 

A,  11H 

19DS 

D30S 

ODI 

C6251 

;  SET  CC* *  AND  MO ED 

1SCE 

C3171A 

JHr 

EXIT 

;  ZIIT 

• 

• 

CCNT  IS 

DEC EIZENIE 

D  0KTI1  IT  BEACEZ 

ZI50.  SEEN  II  ZZACHZS  ZZBO,  I HZ 
CASS  F  IT Z  BGEFZB  IS  INITIALIZED. 

AFTZE  THIS,  TEZ  DATA  IS  BEING  COIPOI 
TO  THE  C ASSZTTZ  D  P I V  E  ,  AML  THE  EGUTISE 
BILL  ZIIT  HEBE  SINCE  TEE  CCD  NT  EE 
Bill  I HEN  BE  LESS  THAI  ZEEO. 


1  9DE 

3A  27  20 

NEDY  :  LD A 

CCNT 

1921 

3D 

DCS 

A 

1912 

322720 

STA 

CCNT  ; B AIT  1  SECOND 

1  9E5 

C2171A 

JBZ 

EXIT  ; 1  SECOND  SOT  OP 

;  CASSETTE 

IS  80S  BEADY  TO  E2C2I7E  DATA 

1  918 

2A2520 

LELD 

5UFE5 

;  CHECK  2C 

E  END  02  PILE 

;  END  02  FILE  FLAG  IS  SET  IF  THE 

;  1LA«*  EA 

S  s'EN  E-sS-lT. 

1  SIB 

3A3320 

XDA 

EFILE 

1922 

A7 

ANA 

A  ; SET  2LAGS 

1  922 

CA2C19 

JZ 

LES  ; SOT  END  02  FILE 

;  END  Or  FILE,  LOAD  FILE  SZFAFATCES 

1  SF2 

CC7f 1 I 

CALL 

LEO? 

1925 

12 

XSA 

A 

1926 

323320 

STA 

EFILE  ; C LEAF.  EFILE 

1929 

C3061A 

JEP 

I5ITC 

;  LCAD  fiZCCRD  SEPAHATOBS 

1  92C 

3272 

LBS:  271 

A,  7FH 

1  922 

77 

207 

2,  A  ; LCAD  DELETE 

1922 

23 

INI 

B 

1  A00 

3212 

flfl 

A,  123 

1  A02 

77 

207 

2,  A  ; LCAD  FZCCFD  SZPAHATGB 

1  AOS 

23 

INI 

H 

1104 

77 

207 

2 ,  A  ; LCAD  FECCED  S IP A HATCH 

1  AOS 

23 

INX 

E 

CASSETTE  30EFZE  IS  BEADY 

SET  PCI NT EES  EOS  CASSETTE  IHIIBBOPT 

BC0TIN2. 

OTIND  POINTS  TO  TEZ  LAST  DATA  IS  BOZrIB 
COTD  POINTS  TO  THE  FIB ST  DATA  IN  BUErZE 


1106 

222120 

IK 

ITC:  SELD 

CTZND 

;LCAD  CTIND 

1  AOS 

2A1D20 

LELD 

CSTHT 

1A0C 

222320 

SELD 

CDTD 

;LCAD  COTD 

1  AOE 

222520 

S5LD 

EOFIB 

; BESET  E 0 2 EE 

1112 

3ZF  2 

271 

A,  OEFH 

1  A 14 

322620 

STA 

CEDI 

;  DFIVE  IS  HEADY 

m 

9 

BESET  POBT  AT  END 

C2  ECO TINE 

1  A 17 

A2 

EX 

IT:  XBA 

A 

1118 

D311 

COT 

POET 
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1  A  1 A 

El 

POP 

H 

1  A  IE 

D 1 

POP 

D 

1  A  1C 

Cl 

PGP 

E 

1  AID 

FI 

POP 

PSW 

1  A  1  E 

CS 

RET 

• ;  *  *  *  ;?  *  *  *  *  *  £ 

*  * 

*  SCAN  SUBROUTINES  * 

*  * 

SUBROUTINE  TO  COMPARE  LCCATICNS  AN L 

ACTIVITIES  WITH  TEE  FREY.  7AIUZS,  AND  ICAD 
THE  CASSETTE  BUFFER  WITH  ANY  VALUES  SBJCE 
HAVE  CHANGED. 


1  A 1 F 

15 

ICDEC:  PUSH 

PSW 

1  A20 

C5 

POSH 

5 

1  A21 

3A1E21 

IDA 

CNUH 

1  A24 

47 

MOV 

B,  A 

;  STORE  NOS 

HER  OF  CHANNELS 

1  A25 

3E01 

M  VI 

A,  1 

1  A27 

CD321 A 

LDC 1 :  CALL 

LOADC 

1  A2A 

3C 

I N  E 

A 

;  INCREMENT 

COUNTER 

1  A2B 

05 

DCS 

3 

1  A2C 

C2271A 

JNZ 

LDC  1 

; NOT  DONE 

YET 

1 A2F 

Cl 

POP 

B 

1  A30 

FI 

POP 

PSW 

1  A31 

CS 

RET 

SUBROUTINE  TO  COMPARE  LOCATIONS  AND  ACTIVITY 
STATES  WITH  THE  PREVIOUS  VALUES. 

IF  EITHER  HAS  CHANGED,  OUTPUT  DATA  LINS  TO 
TEE  CASSETTE  BUFFER. 

ENTER  WITH  THE  CHANNEL  NUMBER  IN  REGISTER  A. 


1  A32 

£.5  I 

,OAEC:  PUSH 

H 

1  133 

D5 

PUSH 

D 

1  A34 

C5 

PUSH 

B 

1 A35 

PUSH 

PSW 

I IT?  WILL 

BE  INCEHENTED 

EY  THE  V AIDE 

IK  T 

HE  ACCUMULATOR 

1221?  WILL  BE  INCREMENTED  EY  22  TIMES 

THE 

NUMBER  IS  THE 

ACCUMULATOR 

1 A36 

212821 

LII 

H,  ACCNT 

1  A39 

223321 

SHLD 

I1T3  ; LCA  E 

ACTIVITY  COUNTER 

1  A3C 

216C21 

LXI 

H,  LCX1 

1  A3F 

223S21 

SHLD 

I22T1  ; LOAD 

CURRENT  LOCATION 

1142 

217421 

LXI 

H,  FLG1 

1  A45 

223E21 

SHLD 

I22T2  ;LOAD 

CURRENT  ACTIVITY 

1  A48 

215E21 

LXI 

H,  PRFL1 

1  A4B 

223121 

SHLD 

1112  ; LOAD 

PREVIOUS  ACTIVITY 

1  A4E 

CDDE1E 

CALL 

INPNI 

1  A51 

F5 

PUSH 

PSS 

;  POINT  DE 

AT  THE  PREVIOUS 

VALUES 

1  A52 

113F21 

LXI 

D,  PRX1 

1  A55 

3D  LODC9:  DCR 

A 

. 

■ 


-  ~  .  t 
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1A56 

CA601A 

JZ 

LDC9 

1  A59 

13 

INX  D 

1  ASA 

CD561F 

CALL 

INCD5  ;INCEEMENT  DE  6  TIMES 

1  A5D 

C3551A 

JMP 

LODC9 

1  A60 

11 

LDC9:  POP  PSW 

; RESTORE  COUNTER 

1  A61 

EB 

XCHG 

1  A62 

222121 

SHLD 

I1T1  ;  PREVIOUS  LOCATION 

POINTERS  NOW 

POINT  TC  CORRECT  LOCATIONS 

I  IT  1  POINTS 

AT  THE  PREVIOUS  LOCATIONS 

I22T1  POINTS 

AT  THE  CURRENT  LOCATIONS 

1112  POINTS 

AT  THE  PREVIOUS  ACTIVITY 

I22T2  POINTS 

AT  THE  CURRENT  ACTIVITY 

I1T3  POINTS 

AT  THE  ACTIVITY  COUNTER 

COMPARE  PRESENT  LOCATION  WITH  THE 

PREVIOUS  LOCATION 

B  COUNTS  THE 

NUMBER  OF  VALUES  (X  AND  Y) 

C  COUNTS  THE 

NUMBER  OF  DIGITS  IN  EACH 

VALUE 

1  A65 

0602 

M  VI  B, 

2  ; LOA D  COUNTER 

1  A67 

CEO  3 

L0DC1:  M VI  C, 

3  ; LOAD  COUNTER 

1  A69 

2A3921 

10DC2:  LBLD 

I22T1 

1  A6C 

7E 

MOV  A, 

K  ; LOAD  CURRENT  LOCATION 

1 A6D 

23 

INX  H 

1  A6E 

223921 

SHLD 

I22T1  ; PCI  NT  AT  NEXT  DIGIT 

1  A71 

2A2E 21 

LHLD 

I 1 T 1  ; PCI NT  AT  PREV.  LOCATION 

1  A74 

BE 

CMP  a 

.‘CURRENT  -  PREVIOUS 

1  A75 

C2991A 

JNZ 

NTSM1  ; NOT  THE  SAME 

THIS  DIGIT  IS  THE  SAME 

1  A78 

23 

INX  H 

1  A79 

2221 21 

SHLD 

I IT 1  ;INCREMENT  POINTER 

1  A7C 

OD 

DCR  C 

;  DECREMENT  COUNTER 

1  A7D 

C26S1A 

JNZ 

IODC2  ; COMPARE  NEXT  DIGIT 

t 

All  DIGITS  HAVE  BEEN  CHECKED. 

1  A80 

2A3921 

LHLD 

I22T1 

1A83 

23 

INX  H 

; POI NT  AT  Y  DATA 

1  AS4 

223921 

SHLD 

I22T1 

1  A87 

05 

DCR  B 

1  A88 

C2671A 

JNZ 

LODC1  ;C HECK  Y  DATA 

• 

1 

THE  LOCATION 

HAS  NOT  CHANGED 

• 

» 

HAS  THE  ACTIVITY  CHANGED? 

1  A8E 

2A3B21 

LHLD 

I22T2 

1  A6E 

7E 

MOV  A, 

M  ; LOAD  CURRENT  ACTIVITY 

1  ASF 

2A3121 

LHLD 

I1T2  ;  POINT  AT  PREV..  ACTIVITY 

1  A92 

BE 

CMP  M 

; CURRENT  -  PREVIOUS 

1 A93 

C2A31A 

JNZ 

NTSM2  ; NOT  THE  SAME 

• 

f 

NEITHER  THE 

LOCATION  NOE  THE 

• 

• 

ACTIVITY  HAVE  CHANGED. 

1A96 

C3A81 A 

JMP 

STRPR  ;  STORE  DATA 

• 

THE  LOCATION 

HAS  CHANGED 

1  A99 

2A3E21 

NTSMl:  LHLD 

I22T2 

1  A9C 

3631 

m  vi  a. 

3 1 H  ; SET  ACTIVITY  TO  ONE 

1  A9E 

2A3321 

LHLD 

I1T3 

1  AA 1 

3605 

M  VI  M , 

5  ; RESET  ACTIVITY  COUNTER 

• 

» 

LOCATION  OR 

ACTIVITY  HAS  CHANGED 

•'  ' 

'  h 
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IDCA S  SILL  STORE  THE  DATA  IN  TEE 
CASSETTE  EUFFER.  TF.A  NSMITTEB  SUM  EER 
IS  ENTERED  IN  REGISTER  A. 


1  A  A3 

FI 

NTSM2: 

PCP 

PSS 

1  AA4 

F5 

PUSH 

PSM 

; RESTORE  CHANNEL  NUMBER 

1  AA5 

CDB11E 

CALL 

LDCAS 

;  LOAD  CASSETTE  EUFFER 

;  MOVE 

;  CURRENT  DATA 

TO  PREVIOUS  FILE 

1  AA8 

F 1 

STRPR: 

PCP 

PSM 

1  AAS 

F5 

PUSH 

PSM 

; RESTORE  CHANNEL  NUMBER 

1  AAA 

216C21 

LXI 

H,  LCX1 

1  AAD 

223921 

SHLD 

1 2  211 

; LOAD  CURRENT  LOCATION 

1  ABO 

217421 

LXI 

H,  FLG 1 

1  AE  3 

223E21 

SHLD 

I22T2 

;LOAD  CURRENT  ACTIVITY 

1  AE  6 

215D21 

LXI 

H  r  PRFL1 

1  AB  9 

223121 

SHLD 

I1T2 

;  LCA  D  PREVIOUS  ACTIVITY 

1  ABC 

CDDE1E 

CALL 

IKFNT 

1  AEF 

F5 

PUSH 

PSM 

1  ACO 

1 1312 1 

LXI 

D,  PRX1 

1  AC3 

3D 

LCDC8 : 

DCR 

A 

1  AC4 

CACE1A 

J  Z 

LDC8 

1  AC7 

13 

INX 

D 

1  AC8 

CD561F 

CALL 

INCD5 

; INCREMENT  DE  6  TIMES 

1  ACE 

C3C31A 

JMP 

LODC8 

1  ACE 

FI 

LDC8: 

POP 

PSM 

; RESTORE  COUNTER 

1  AC  F 

EB 

XCEG 

1  ADO 

222F21 

SHLD 

I  IT  1 

.'PREVIOUS  LOCATION 

POINTERS  NO'*  POINT  TO  CORRECT  LOCATIONS 
I  IT  1  POINTS  AT  THE  PREVIOUS  LOCATIONS 
I22T1  POINTS  AT  THE  CURRENT  LOCATIONS 
1112  POINTS  AT  THE  PREVIOUS  ACTIVITY 
I22T2  POINTS  AT  THE  CURRENT  ACTIVITY 
HOVE  CURRENT  LOCATION  TO  PREVIOUS  FILE 


1  ADS 

0602 

w  -  —  - 

M  VI 

B  t  2 

1  AD5 

OE  03 

LODC4 : 

M  VI 

C,  3 

1  AD  7 

2A3S21 

LODC5 : 

LHLD 

I22T1 

IAEA 

7  E 

MOV 

A,  M 

.'LOAD  CURRENT  LOCATION 

1  ADE 

23 

INX 

H 

1  ADC 

223521 

SHLD 

12211 

; PCI  NT  AT  NEXT  DIGIT 

1  ADF 

2A2F21 

LHLD 

I1T1 

; PCI  NT  AT  PREV.  LOCATION 

1  AE2 

77 

MOV 

M,  A 

; STORE  LOCATION 

1  AE3 

23 

INX 

H 

1  AE4 

222F21 

SHLD 

I1T1 

;INCREMENT  POINTER 

1  AE7 

OD 

DCR 

C 

; DECREMENT  COUNTER 

1  AES 

C2D71A 

JNZ 

LODC5 

; N E X T  DIGIT 

1  AE  E 

2A3921 

LHLD 

I22T1 

1 AEE 

23 

INX 

H 

1  AEF 

223921 

SHLD 

I22T1 

; PCI  NT  AT  Y  DATA 

1  AF2 

05 

DCR 

B 

1  AF3 

C2D51 A 

JNZ 

LODC4 

; LOAD  Y  DATA 

;  MOVE  ACTIVITY  TO 

PREVIOUS  FILE 

1  AF6 

2A3E21 

LHLD 

I22T2 

1  AF9 

7  E 

MOV 

A,  fl 

; LOAD  CURRENT  ACTIVITY 

1 AFA 

2A3121 

LHLD 

I1T2 

; POINT  AT  PREY.  ACTIVITY 

1  AFD 

77 

MOV 

M,  A 

; STORE  ACTIVITY 
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1  AFZ 

El 

PCF 

PS'i 

1  AFF 

Cl 

FCF 

£ 

1  E00 

D1 

FCP 

D 

1  Z01 

El 

PC? 

E 

1  £02 

C9 

FIT 

SCEEGUITIZ  TC  CHECK  IF 
SHOULD  BE  INCREASED- 


THE  CASSZTI I  FATE 
IF  ANY  CHAN  NILS 


EIN  IISTC  CF  CEANIZI  1,  FEZ 


A  ?.  r.  i 

CASSZTTZ  HATE  BILL  HI  CEANGZE  TG  TEZ 
SCANNING  BATE.  IF  NO  CHANNELS  A HZ 
KXIEII  r ANGZ  IHZ  CASSZIIZ  ?ATZ  IS 
HZSZT  IG  ITS  P5Z7IGUS  TAIDZ.  IZ  IEZFZ 
IS  NC  ACTIVITY  ON  THZ  CHANNZL  B5IC5 
IS  SIIEIN  FANGZ,  TEZ  FATZ  IS  NCI 
IBCEEASED. 


1  £03 
1  HOC 
1  E05 
1  £06 


C  5 1 N 


C5 

D5 


t  jSI 
P  2  S  E 


r  IS  a 

PUSH 
IF  DISTC 
INCH! AS Z 


PSE 

H 

B 

D 

IS  SZI  TC  ZEEG,  DC  NOT 
THZ  CASSZTTZ  STCFZ  FATZ- 


1  £07 

3A1C21 

LDA 

DISTC 

1  BOA 

FEOO 

CPI 

0 

1  £GC 

CA421E 

JZ 

CSIS3 

• 

« 

BESET  CASSZTTZ  HATH  TC  ITS  ? E Z7IGUS 

• 

t 

VALUE 

1  EOF 

3A3522 

LDA 

CASIF 

1  E 1 2 

323622 

SIA 

CASH  ;  F  ZSHT  CASSETTE  HATE 

1  £15 

3A1E21 

LDA 

CNU* 

1  £16 

47 

EOT 

B,  A  ;LCAD  B  SITE  SUE  OF 

1  £  1  9 

05 

DCS 

E 

• 

9 

E  CONTAINS  TEZ  NCYEZE  Or  CHANNELS 

» 

f 

TO  BE  CE 

rCSrD 

1  £  1 A 

11SA21 

LII 

D  /  Jl  La  z 

IBID 

211C21 

LIE 

H ,  DISTC 

1  E2C 

310  2 

H  71 

A,  2  ; LOAD  FIFST  CHANNEL 

'  “  1 


LIST  A  BILL  FIND 
IHANSillTZH  CNZ 
ilECSZ  ND*BEE  IS 


THZ  DISTANCE  Eli  WHIN 
A NI  TEZ  IHANSMlTIZi. 
ZNTZFZI  IN  F  ZGISTZH 


A.  El  PCI NTS 

TO  IHZ  SETPOINT. 

1  E22 

F5  CSI51:  PUSH  PSE 

1  £23 

CD4  7 1 E 

CALL 

D I ST A  ; F I N  D  DISTAIC 

1  £26 

1  E  2  7 

—  - 

r23B^E 

C  IF  E 

JP 

; DISTANCE- SET 
CSIN2  ; NCI  SIT SIN  F 

CNF  CHANNEL 

IS  WITHIN  HINGE 

Ccrvft  Ini  AC 
DE  POINTS  AT 

II  <i  il 

THZ  ACTIVITY  FLAG 

1  E2  A 

1 A 

LDAX  D 

1  E2E 

FE30 

CPI 

305  ;IO  ACTIVITY 

1  E2D 

CA351B 

J  Z 

CSIN2  ;DC  NOT  CHANG 

;  ACTIVITY  IS 

A  CNZ ,  INCFZASZ  THE 

1E3G 

3E0 1 

H  71  A, 

1  ; LCAD  NEW  SCA 

1  E32 

1  £3  5 

a  z3 czz 
323722 

SIA 

SIA 

CASH  ;  LCAD  CA  SSIII 
CASI2 

BATE 
AT  Z 

INTZF.7A; 


NN. 


I  gt 


2, 
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I 

CHECK  THE 

NEXT  TRANSMITTER 

1  E38 

FI 

CSIN2:  PCP 

PSN  ; RELOAD  COUNTER 

1E39 

3C 

INS 

A  ;  I NCREMENT  COUNTER 

1  E3  A 

CD671F 

CALL 

INDE  ;I NCREMENT  DE  REGISTER 

1E3D 

13 

I  NX 

D  ;  2 2  TIMES 

1 

DE  NOW  POINTS  AT  ACTIVITY  FLAG  FOR 

THE  NEXT 

TRANSMITTER. 

1  E3E 

05 

DCR 

B 

1  E3F 

C2221B 

JNZ 

CSIN1  ; NOT  DONE  YET 

ALL  TRANSMITTERS  H  A V  F  EE EN  CHECKED. 

1  E42 

D 1 

CSIN3:  POP 

D 

1  E43 

Cl 

POP 

B 

1  E44 

El 

POP 

H 

1E45 

FI 

PCP 

PSW 

1  E46 

C9 

RET 

SUBROUTINE 

TO  CALC.  THE  DIST.  EETWEEN  CHAN 

AND  THE  CHANNEL  NUMBER  ENTERED  IN  THE  A 
THE  RESULT  (IN  ANTENNAS)  IS  RETURNED  IN 

1  E47 

C5 

DISTA:  PUSH 

B 

1  E48 

D5 

PUSH 

D 

1  E49 

016C21 

LXI 

B  r  LCX1 

1  E4C 

116C21 

LXI 

D ,  LCX1 

1E4F 

3D 

DIST4:  DCR 

A  ; DECREMENT  COUNTER 

1E50 

CASA  1  E 

JZ 

DIST5 

1  E53 

CD67  IF 

CALL 

INDE  ;INCREMENT  DE  21  TIMES 

1  E56 

13 

I  NX 

D  ; 2 2  TIMES 

1E57 

C34F1B 

JMP 

DIST4 

BC  POINTS 

TO  THE  LOCATION  CF  TRANS.  1 

DE  POINTS 

TO  THE  LOCATION  OF  TRANS.  ? 

DISTC  WILL  CALCULATE  THE  DISTANCE 

AND  RETURN  THE  ANSWER  IN  REGISTER  A. 

1  E5A 

CDA51B 

DIST5:  CALL 

DIST  ;C ALCUL ATE  DISTANCE 

1  E5D 

D1 

POP 

D 

1  ESI 

Cl 

POP 

B 

1  ESI 

C9 

RET 

SUBROUTINE 

TO  LOAD  THE  CHANNEL  LOCATIONS 

INTO  THE 

PRINT  BUFFER 

THE  POPULATION  MATRIX  IS  INCREMENTED 

1  E60 

F5 

LOADA:  PUSH 

PSW 

1B61 

D5 

PUSH 

D 

1E62 

C5 

PUSH 

B 

ACFL1  IS 

MOVED  TO  ACFL2 

ACFL1  CONTAINS  THE  PRESENT  A/D  READINGS 
ACFL2  CONTAINS  THE  PAST  A/D  READINGS. 

1B63 

3E05 

M  VI 

A,  5  ; LOAD  COUNTER 

1  E65 

011E21 

LXI 

B,  ACFL1 

1  B68 

112321 

LXI 

D,  ACFL2 

1B6B 

F5 

LDD  1 :  PUSH 

PSW  ; STORE  COUNTER 

1E6C 

0A 

LDAX 

B 

1  E6D 

12 

STAX 

D 

1  B6E 

03 

INX 

B 

1E6F 

13 

INX 

D 

.  1 

REG. 

A 


•  .  fl 


r  i. 

v. 

■  ■ 
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1  E70 

FI 

POP 

PSW  ; RESTORE  COUNTER 

1E71 

3D 

DCR 

A  .-DECREMENT  COUNTER 

1  E72 

C26B1B 

JNZ 

IDD 1  ; N OT  DONE  YET 

;  ACTIVITY 

READINGS  HAVE  EEEN  MOVED 

;  INTO  THE 

PREVIOUS  FILE 

1  E75 

3 A 1B2  1 

LDA 

CNUM  ;LOAD  NUMEER  OF  CHANNELS 

1E73 

47 

MOV 

B,  A 

1B79 

3E01 

M  VI 

A,  1  ;  LCA  D  COUNTER 

;  LDDT  KILL 

LC AD  ONE  CHANNEL  DATA  INTO 

;  THE  PRINT 

BUFFER.  TRANSMITTER  NUMBER 

;  IS  ENTERED  IN  REGISTER  A. 

1  B7B 

CDE71B 

LOAD  1 :  CALL 

IDDT  ; LOA D  CHANNEL  DATA 

;  FOR  THE  FIRST  THREE  TRANSMITTERS 

;  INCREMENT 

THE  POPULATION  MATRIX. 

1E7E 

FE04 

CPI 

4 

1  E80 

F2861B 

JP 

LOAD2  ; DO  NOT  INCREMENT 

1E83 

CD8F1E 

CALL 

LDPOP  -.INCREMENT  POP  MATRIX 

1  E86 

3C 

LCAD2 :  INR 

A  ;I NCREMENT  COUNTER 

1  B87 

05 

DCR 

B  ; DECREMENT  CHANNEL  COUNTER 

1  E88 

C27B1B 

JNZ 

LOAD  1  ; LO AD  NEXT  CHANNEL  DATA 

;  AIL  CHANNELS  HAVE  BEEN  LOAEED  INTO 

;  THE  TEMPORARY  BUFFER. 

1  E8B 

Cl 

POP 

B 

1E8C 

D  1 

POP 

D 

1  E8D 

FI 

POP 

PSW 

1  E8E 

C9 

RET 

; SUBROUTINE 

TO  INCREMENT  POPULATION  MATRIX 

LOCATION 

TO  EE  INCREMENTED  IS  CONTAINED  IN 

;  NEARX  AND 

NEARY. 

;  ENTER  KITH  A  CONTAINING  CHANNEL  NUMBER 

1  E8F 

05 

LDPCP :  PUSH 

D 

1  E90 

:  5 

PUSH 

H 

1  E91 

C  5 

PUSH 

B 

1E92 

E  J 

PUSH 

PSW 

1  £93 

2 1A025 

LXI 

H,  POP M  ; POINT  HI  AT  MATRIX 

1  E96 

3  > 

LDP01:  DCR 

A  ; DECREMENT  CHANNEL  NUMEER 

1  E  97 

C  vAOlB 

JZ 

LDP02  ; DONE 

1  E9A 

C  j;82  IF 

CALL 

AD882  ,-DPCINT  HL  AT  NEXT  CHANNEL 

1  B9D 

C3961E 

JMP 

LDP01 

;  HL  NOW  POINTS  AT  CORRECT  CHANNEL  TABLE 

1  BAO 

3A3E22 

LDP02 :  LDA 

NEARX 

1  BA3 

47 

MOV 

B ,  A  ; STORE  IN  REGISTER  B 

1  EA4 

0E2A 

M  VI 

C,  42 

1  EA6 

CD701F 

CALL 

MULT8  ; NEARX *4 2 

1EA9 

09 

DAD 

B  ; ADD  TO  HL  REGISTER 

;  HL  NOW  POINTS  AT  X  PORTION  OF  TABLE 

1  EAA 

3A3D22 

LDA 

NEARY 

1  EAD 

5F 

MOV 

E ,  A  ; LOAD  DE  KITH  NEARY 

1  BAE 

1600 

M  VI 

D,  0 

1EB0 

IS 

DAD 

D 

1  EE  1 

19 

DAD 

D  ; ADD  2*N EARY  TO  HL 

;  HL  NOW  POINTS  AT  CORRECT  LOCATION 

1  BB2 

56 

MOV 

D ,  M 

'  (  ' . 


. 
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1  EE3 

23 

I  NX 

H 

1BE4 

5  E 

MOV 

E, 

fl 

• 

• 

DE 

NON  CONTAINS  THE  COUNTER 

1  EB5 

13 

I  NX 

D 

.•INCREMENT  THE  COUNTER 

1  EE6 

73 

MG  V 

M, 

E 

1  EE7 

2B 

DCX 

H 

IBB  6 

72 

MOV 

M, 

D  ; RESTORE  COUNTER 

• 

• 

COUNTER 

HAS 

BEEN  INCREMENTED. 

1  EB9 

FI 

POP 

PSW 

1  EBA 

Cl 

POP 

B 

1  EBE 

El 

POP 

H 

1  EEC 

D 1 

POP 

D 

1  EBD 

C9 

RET 

• 

• 

• 

SUBROUTINE 

TO 

ICAD  TIME  INTO  THE  PRINT  BUFFER 

1  EE  E 

i  j 

LDTHE: 

PUSH 

PSW 

1BBF 

D5 

PUSH 

D 

1  ECO 

C5 

PUSH 

B 

1  EC  1 

E5 

PUSH 

H 

1  EC2 

0E05 

K  VI 

c. 

5  ; LOA D  COUNTER 

1  BC4 

216221 

LXI 

Hr 

TM 1  ; POI NT  AT  FIRST  TIME  LOC. 

1  BC7 

111C20 

LDTM : 

LXI 

Dr 

HR1  ; POINT  DE  AT  TIMER 

1  ECA 

0606 

M  VI 

Br 

6  ; LOAD  DIGIT  COUNTER 

1  ECC 

1 A 

LDTM1 : 

LDAX 

D 

;LCAD  DIGIT 

1  ECD 

CD7C1F 

CALL 

CONAS  ; CONVERT  TO  ASCII 

1  EDO 

77 

MOV 

M, 

A  ; STO PE  IN  EUFFER 

1  ED  1 

IB 

DCX 

D 

; PCI NT  TC  NEXT  DIGIT 

1  BD2 

23 

INX 

H 

; POINT  AT  NEXT  LOCATION 

1  ED3 

05 

DCF. 

B 

; DECREMENT  DIGIT  COUNTER 

1  ED4 

C2CC1B 

ONZ 

LDTM 1  ; STORE  NEXT  DIGIT 

• 

• 

ONE 

SET 

OF  DIGITS  HAS  BEEN  LCADED 

1  ED7 

CD5C1F 

CALL 

IHL20  ; INC RE ME NT  HL  20  TIMES 

1  EDA 

2B 

DCX 

H 

1  EDE 

2B 

DCX 

H 

1  BDC 

2B 

DCX 

H 

1  EDD 

2B 

DCX 

H 

; POINT  HL  AT  NEXT  LOCATION 

• 

• 

HL 

POINTS  AT 

NEXT  TIME  LOCATION 

• 

t 

IN 

THE  TEMPORARY  BUFFER 

1  BDE 

0  ;) 

DCR 

C 

; DECREMENT  COUNTER 

1  EDF 

C2C71B 

JNZ 

LDTM  ; LOAD  NEXT  TIME 

• 

• 

ALL 

FIVE 

DATA  LINES  HAVE  THE 

• 

• 

TIKE  ENTERED 

• 

1  EE2 

1  1 

POP 

H 

1  EE3 

C  1 

POP 

B 

1  EE4 

LI 

POP 

D 

1  EES 

j  1 

POP 

PSW 

1  EE6 

c  9 

RET 

SUBROUTINE  TO  ICAD  ONE  CHANNEI  LOCATION  INTO 
THE  PRINT  BUFFER,. 

A  CONTAINS  THE  CHAN.  TO  EE  LCADED  (1  TO  5) 
THE  A/D  VALUE  FOR  THE  Y  ANTENNAS  IS 
STORED  IN  THE  ACTIVITY  FILE 

NEAREST  ANTENNA  IS  STORED  IN  NEARX  AND  NEARY 


/ 
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1  EE7 

F5 

IDDT:  PUSH 

PS 

W 

1  EE8 

D5 

PUSH 

D 

1  EES 

E5 

PUSH 

H 

1  EE  A 

C5 

PUSH 

B 

1  BEE 

C11E21 

LXI 

B, 

ACFL1 

; POI NT  AT  ACTIVITY  FILE 

IEEE 

2 16C21 

LX  I 

H, 

ICX1 

;  POI NT  HI  AT  LOCATION 

1  BF  1 

1 13E20 

LX  I 

Dr 

TABLE 

1EF4 

3D 

LDDT1:  DCR 

A 

; DECREMENT  NUMBER 

1  EF  5 

CA021C 

JZ 

IDDT2 

;LCAD  DATA 

1  BF8 

13 

INX 

D 

;  INCREMENT  POINTER 

1  EF9 

03 

I  NX 

B 

1  EFA 

CD5C1F 

CALL 

IHL20 

;  INCREMENT  HL 

1  EFD 

23 

INX 

H 

1  BFE 

23 

INX 

H 

;  22  TIMES 

1 EFF 

C3F41B 

JMP 

LDDT1 

DE  NOW  POINTS  AT  THE  FIRST  ANTENNA  DATA 
BC  POINTS  AT  ACTIVITY  FILE 
HI  POINTS  AT  LOCATION  DATA 
POSAX  WILL  FIND  THE  POSITION, 

ANSWER  IS  RETURNED  (IN  ASCII)  IN 


LCY5  TO 

LCY5+2. 

NEAREST 

ANTENNA  IS  RETURNED  IN  NEARY 

A/D  READING  FOR  THE  MAXIMUM  ANTENNA 

IS  RETURNED  IN  APRES. 

1  C02 

C5  LDDT2:  PUSH 

B 

1C03 

0602 

M  VI 

B,  2 

1  COS 

CDC71C 

CALL 

POSAX  ; FIND  POSITION 

1  C08 

3AC821 

LDA 

LCY5 

1  COB 

77 

MOV 

M,  A  ; STO RE  IN  BUFFER 

1C0C 

23 

INX 

H 

1  COD 

3AC921 

LDA 

LCY5+1 

1C10 

77 

MCV 

M,  A  ; LO AD  SECOND  DIGIT 

1C1 1 

23 

INX 

H 

1 C 1 2 

3ACA21 

LDA 

LCY5+2 

1  C 1 5 

77 

MOV 

M,  A  ; LOAD  THIRD  DIGIT 

1  Cl  6 

23 

INX 

H 

1  C 17 

05 

DCR 

B  ; DECREMENT  COUNTER 

1  C 1 8 

CA251C 

JZ 

LDDT3 

;  X  DATA  HAS  BEEN  LOADED,  LOAE  Y  DATA 

1  C 1 B 

23 

INX 

H  ; PCI NT  HL  AT  Y  DATA 

1C1C 

3A3D22 

LDA 

NEARY 

1 C  IF 

323122 

STA 

NEARX  ; STORE  X  LOCATION 

1  C22 

C3051C 

JMP 

LDDT2+3  ; LOAD  DATA 

X  AND  Y 

DATA  HAVE  BEEN  STORED  IN  THE 

TEMPORARY  BUFFER.  STORE  A/D  VALUE 

IN  THE  ACTIVITY  FILE. 

1  C25 

Cl  LDDT3:  POP 

E 

1 C26 

3A3A22 

LDA 

APRES  .‘LOAD  A/D  VALUE 

1 C29 

02 

STAX 

B  ; STORE  IN  ACTIVITY 

1  C2  A 

Cl 

PGP 

B 

1  C2E 

El 

POP 

H 

1  C2C 

D 1 

POP 

D 

1C2D 

FI 

PCP 

PSH 

1  C2E 

C9 

RET 

- 
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SUBROUTINE  TO  SET  ALL  ACTIVITY  FLAGS 
BASED  ON  THE  A/D  VALDES  ONLY 


1C2F 

F5  ACTAD:  PUSH 

PSW 

1C30 

3E01 

M  VI 

A,  1 

; LCAD  COUNTER 

ACT  WILL 

SET  THE 

ACTIVITY  FLAG  FOR  THE 

TRANSMITTER  WHOSE 

NUMBER  IS  ENTERED 

IN  THE  A 

REGISTER 

• 

1  C3  2 

CD3D1C  AC AD  1 :  CALL 

ACT 

; SET  FLAGS 

1  C35 

3C 

INR 

A 

JINCREMENT  COUNTER 

1  C36 

FEO  6 

CPI 

6 

1C38 

C2321C 

JNZ 

ACAD  1 

;  N 01  DONE  YET' 

;  ALL  5  CHANNELS  HAVE  EEEN  CHECKED. 

1  C3B 

FI 

PCP 

PSW 

1  C3C 

C9 

RET 

SUBROUTINE 

TO  SET  ACTIVITY  FLAGS  BASED  ON  A/D 

VALUES  ONLY.  LATERAL  MOTION  SHOULD  OVERRIDE 

THESE  FLAGS  AT  A 

LATER  TIME 

ENTER  KITH  THE  CHANNEL  NUMEEE  IN  THE  A  REG. 

IE  THERE 

IS  NO  MOTION  FOR  FIVE  SCAN  INI. 

THE  ACTIVITY  FLAG 

KILL  BE  SET  TO  ZERO. 

1  C3D 

C5  ACT:  PUSH 

B 

1C3E 

D5 

PUSH 

D 

1  C3E 

E5 

PUSH 

H 

1  C40 

F5 

PUSH 

PSW 

1C4  1 

212821 

LXI 

H,  ACC NT 

1  C44 

222D21 

SHLD 

ACPNT 

; STORE  CCUNTER  POINTER 

1C47 

117421 

LXI 

D ,  FLG 1 

; POINT  AT  FIRST  ACT.  FLAG 

1  C4  A 

21 1E21 

LXI 

H,  ACFL1 

1C4D 

012321 

LXI 

B,  ACFL2 

1C50 

3D  ACT  1 :  DCR 

A 

; DECREMENT  COUNTER 

1  C5  1 

CA  66  1 C 

JZ 

ACI2 

;DCNE 

1  C54 

CD671F 

CALL 

INDE 

;I NC REM ENT  DE  21  TIMES 

1C57 

13 

INX 

D 

; 22  TIMES 

1C58 

23 

I  NX 

H 

1C59 

03 

INX 

B 

1  C5  A 

E5 

PUSH 

H 

1  C5B 

2A2D21 

LHLD 

ACPNT 

1C5E 

23 

INX 

H 

1C5F 

222D21 

SHLD 

ACPNT 

; I NC REMENT  COUNTER  POINTER 

1C62 

El 

PCP 

H 

1C63 

C3501C 

JMP 

ACT  1 

HL  NOW  POINTS  AT  PRESENT  ACTIVITY  FILE 
BC  NOW  POINTS  AT  PAST  ACTIVITY  FILE 
DE  POINTS  AT  THE  ACTIVITY  FLAG 
ACPNT  POINTS  AT  TEE  ACTIVITY  COUNTER 
ACPCT  CONTAINS  THE  PERCENTAGE  BY  WHICH 
THE  VALUE  MAY  CHANGE.. 


1C66 

OA 

ACT2:  LDAX 

B 

;LCAD  PREVIOUS  VALUE 

1C67 

BE 

CMP 

M 

;  PRE VIC US- PRES ENT 

1C6  8 

FA8B1C 

JM 

ACT3 

;  PREVIGUS>PRESENT 

1  C6B 

D5 

PUSH 

D 

.  •• 


V 
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1C6C 

47 

MOV 

B, 

A 

; LCA D  PREVIOUS  VALUE 

1C6D 

3A1D21 

EDA 

ACPCT 

1C7  0 

4F 

MOV 

c. 

A 

; LOAD  PERCENTAGE 

1  C7 1 

CD701F 

CALL 

MULT8 

;  PREVIOUS*PE'RCENT 

1C74 

78 

MOV 

A, 

B 

1C75 

2F 

CMA 

1 C76 

57 

MOV 

Dr 

A 

1C77 

79 

MOV 

A, 

C 

1  C78 

2F 

CMA 

1C79 

5F 

MOV 

E, 

A 

1  C7A 

13 

I  NX 

D 

(PEE VIC US* PERCENT) 

1  C7B 

46 

MOV 

B, 

M 

; LOAD  PRESENT 

1 C7C 

0E64 

M  VI 

c. 

100 

1C7E 

CD701F 

CALL 

MULT8 

;  PRESENT*  1  00 

1C81 

EB 

XCHG 

1 C  82 

09 

DAD 

B 

; PRES*  100-  (PREV*PERCENT) 

1  C83 

7C 

MOV 

A, 

H 

1  C84 

A7 

ANA 

A 

; SET  FLAGS 

1  C85 

F2A81C 

JP 

ACTZ 

; ACTIVITY  IS  ZERO 

1  C88 

C3B81C 

JMP 

ACTO 

; ACTIVITY  IS  ONE 

• 

• 

PK£SENT> PREVIOUS 

1C8B 

D5 

ACT3:  PUSH 

D 

1C8C 

47 

MOV 

B, 

A 

; LOAD  PREVIOUS 

1C8D 

0E64 

M  VI 

c. 

100 

1  C8F 

CD701F 

CALL 

MULT’8 

; PREVIOUS*  100 

1C92 

78 

MOV 

A  r 

B 

1  C93 

2F 

CMA 

1  C94 

57 

MOV 

Dr 

A 

1  C  95 

79 

MOV 

A  , 

C 

1 C96 

2  F 

CMA 

1  C  97 

59 

MOV 

E, 

C 

1C98 

13 

I  NX 

D 

(PREVIOUS*100) 

1C99 

46 

MOV 

B, 

M 

; LOAD  PRESENT 

1  C9  A 

3A1D21 

LDA 

ACPCT 

1C9D 

4F 

MOV 

c. 

A 

; LOA D  PERCENTAGE 

1  C9E 

CD701F 

CALL 

MULT8 

; PRESS NT* PERCE NT AGE 

1  C  A  1 

EB 

XCHG 

1  CA2 

09 

DAD 

B 

; PRES* PERCENT-  (PREV*100) 

1  CA3 

7C 

MOV 

A  r 

H 

1  CA4 

A7 

ANA 

A 

; SET  FLAGS 

1  CA5 

F2B81C 

JP 

ACTO 

; ACTIVITY  IS  A  ONE 

• 

9 

ACTIVITY 

IS 

ZERO 

• 

9 

I ECS EM ENT  THE  COUNTER 

1  CA8 

D  1 

ACTZ:  POP 

D 

1CA9 

2A2D21 

LHLD 

ACPNT 

; POINT  HI  AT  COUNTER 

1  CAC 

7  E 

MOV 

A, 

M 

; LCAD  COUNTER 

1  CAE 

3D 

DCR 

A 

1  CAE 

77 

MOV 

Mr 

A 

; DECREMENT  ACT.  COUNTER 

1  CAE 

C2C21C 

JNZ 

ACT7 

;  EXIT 

• 

9 

ACTIVITY 

HAS  BEEN 

ZERO  FOR  FIVE 

• 

9 

SCAN  INTERVALS,  SET  FLAG  TC  ZERO 

1  CE  2 

3E30 

M  VI 

Ar 

30H 

1  CB4 

12 

STAX 

D 

; CLEAR  ACTIVITY  FLAG 

1CE5 

C3C21C 

JMP 

ACT7 

;  EXIT 

. 
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;  ACTIVITY  IS  A  ONE, 
;  RESET  COUNTER  TO  5 


1  CB8 

D 1 

ACTO: 

POP 

D 

1  CB9 

3E31 

M  VI 

A, 

31H 

1  CBE 

12 

STAX 

D 

; SET  ACTIVITY  FLAG 

ICBC 

2A2D21 

LHLD 

ACPNT 

; POI NT  HL  AT  COUNTER 

1  CEF 

3  E05 

M  VI 

A, 

5 

1CC1 

77 

MOV 

M, 

A 

; RESET  ACTIVITY  COUNTER 

1  CC2 

FI 

ACT7 : 

PCP 

PSW 

1CC3 

El 

PCP 

H 

1  CC4 

D 1 

POP 

D 

1  CC5 

Cl 

POP 

B 

1  CC6 

C9 

RET 

SUBROUTINE  TO  FIND  POSITION  ON  ONE  AXIS 
EE  SEGISTER  POINTS  TO  FIRST  ANTENNA  DATA 
ANSWER  IS  RETURNED  (IN  ASCII)  IN  LCY5-LCY5+2 
NEAREST  ANTENNA  IS  RETURNED  IN  NEARY 
A/E  READING  FOR  MAX  ANT  IS  RETURNED  IN  APRES 
MAXNO  CONTAINS  THE  NUMBER  OF  THE 
ANTENNA  WITH  THE  HIGHEST  READING. 

AIAST  CONTAINS  THE  A/D  REAEING  FOR 
THE  ANTENNA  IMMEDIATELY  EEFOBE  THE 
ANTENNA  WITH  THE  HIGHEST  REAEING 
APRES  CONTAINS  THE  A/D  READING  FOR 
THE  ANTENNA  WITH  THE  HIGHEST  READING.. 

STORE  FLAG  (REG  E)  IS  SET  IF  A  NEW 
MAXIMUM  READING  HAS  BEEN  FOUND. 


1CC7 

E5 

POSAX:  PUSH 

H 

1  CCS 

C5 

PUSH 

B 

1  CCS 

213A22 

LXI 

H,  APRES 

1  CCC 

AF 

XRA 

A 

1  CCD 

323C22 

STA 

MAXNO 

.-CLEAR  MAX  ANTENNA  NUMBER 

1  CD  0 

323922 

STA 

ALAST 

; CLEAR  PREVIOUS  VALUE 

1 CE3 

4F 

MOV 

C,  A 

; CLEAR  ANTENNA  NUMEER 

1  CD4 

06F  F 

M  VI 

B,  OFFH 

; SET  STORE  FLAG 

• 

• 

READ  FIRST  ANTENNA 

,  ASSUME  THAT  THIS 

• 

• 

IS  THE  LARGEST  READING. 

1  CD6 

1 A 

LDAX 

D 

.  _ _ 

1CD7 

323A22 

STA 

APRES 

;  STORE  MAX  VALUE 

1  CDA 

1 A 

POSA1:  LD AX 

D 

1  CDE 

323822 

STA 

APREV 

; STORE  VALUE 

• 

READ  NEXT 

ANTENNA 

1  CDE 

CD561F 

CALL 

INCD5 

; LOOK  AT  NEXT  ANTENNA 

1  CE 1 

0C 

INR 

C 

INCREMENT  ANTENNA  NUMBER 

1  CE2 

78 

MOV 

A,  B 

1  CE3 

A7 

ANA 

A 

;CHECK  STORE  FLAG 

1  CE4 

1A 

LEAX 

D 

; LOAD  ANTENNA  DATA 

1CE5 

CAEB1C 

JZ 

NS  TOR 

;  STORE  FLAG  NOT  SET 

• 

f 

A  NEW  MAXIMUM  WAS 

FOUND  ON  THE 

• 

9 

PREVIOUS 

ANTENNA, 

THEREFORE  STORE 

• 

9 

THE  DATA 

FOR  THIS 

ANTENNA  IN  ANEXT 

ICE  8 

323B22 

STA 

ANEXT 

9 

CHECK  THE 

PRESENT 

DATA  TO  SEE  IF  IT  IS 

i 

H  1/  il 


r*  .  ■ 
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;  A  NEW  MAXIMUM. 


1  CEB 

BE 

NSTOR:  CMP 

M  ;  PRESENT  -  PREVIOUS 

1  CEC 

FA011D 

JM 

NOMAX 

;  A  NEW  MAXIMUM  HAS  BEEN  FOUND 

;  STORE  THE  VALUE  IN  APRES 

1  CEF 

323A22 

STA 

APRES 

;  SET  THE 

FLAG  SO  THAT  THE  NEXT  ANTENNA 

;  VALUE  WILL  BE  STORED  IN  ANEXT 

1  CF2 

06FF 

M  VI 

B,  OFFH  ; SET  STORE  FLAG 

;  STORE  THE  PREVIOUS  VALUE  IN  ALAST 

1CF4 

3A3822 

LDA 

APREV 

1  CF7 

323922 

STA 

ALAST  ; STORE  LAST  VALUE 

;  STORE  THE  ANTENNA  NUMEER 

1CIA 

79 

MOV 

A,  C  ;  STO FE  ANTENNA  NUMBER 

1  CFB 

323C22 

STA 

MAXNO  ; STORE  ANTENNA  NUMBER 

1  CFE 

C3031D 

JMP 

POSA2 

;  THE  CURRENT  VALUE  IS  NOT  A  NEW 

;  MAXIMUM 

1  DO  1 

0600 

NOMAX:  M VI 

B,  00H  ; CLE AR  STORE  FLAG 

;  HAVE  ALL 

THE  ANTENNAS  BEEN  CHECKED. 

1  D03 

79 

POSA2:  MOV 

A,  C  ; LOAD  ANTENNA  NUMBER 

1 D04 

FE 1  4 

CPI 

2 OD  ; L AST  ANTENNA? 

1  D06 

C2DA1C 

JNZ 

PCS A 1  ; CHECK  NEXT  ANTENNA 

;  LAST  ANTENNA  HAS  BEEN  CHECKED 

1  D09 

78 

MOV 

A,  B 

1  DOA 

A7 

ANA 

A  ;CHECK  STORE  FLAG 

1  DO  B 

CA121D 

JZ 

NSTR1 

;  IF  ANTENNA  20  WAS  A  MAXIMUM  VALUE, 

;  CLEAR  THE  VALUE  FOR  THE  NEXT  ANTENNA 

;  READING. 

1  DOE 

AF 

XR  A 

A 

1  DOF 

323322 

STA 

ANEXT  ; CLE AR  NEXT  ANTENNA  VALUE 

;  MAX  ANTE 

NN A  HAS  BEEN  FOUND 

;  MAXNO  - 

ANTENNA  NUMBER 

;  APRES  - 

A/D  READING  FOR  THE  MAX  ANTENNA 

;  ALAST  - 

A/D  READING  FOR  THE  PREVIOUS  ANTENNA 

;  ANEXT  - 

A/D  READING  FOR  THE  NEXT  ANTENNA 

1D12 

CD561F 

NSTR1:  CALL 

INCD5  ; POI NT  DE  AT  NEXT  ANTENNA 

1  El  5 

D5 

PUSH 

D  ; STORE  DE  REGISTER 

;  LOAD  NEARY  WITH  THE  CLOSEST  ANTENNA 

1 D 1 6 

3A3C22 

LDA 

MAXNO 

1 D  19 

323322 

STA 

NEARY  ; STORE  NEAREST  ANTENNA 

;  MULTIPLY 

PRESENT  VALUE  BY  25 

1  D 1 C 

3A3A22 

LDA 

APRES 

1D1F 

47 

MOV 

B,  A 

1  D20 

OE 1  9 

M  VI 

C,  25D  ; LOAD  MULTIPLIER 

1  D22 

CD701F 

CALL 

KULT8  ; APRES*25 

;  NEGATE  APRES*25 

1  D25 

79 

MOV 

A ,  C 

1D26 

2F 

CMA 

1D27 

6F 

MOV 

L,  A 

1  D28 

78 

MOV 

A,  B 

1D29 

2F 

CMA 

1D2A 

67 

MOV 

H  ,  A 

, 


.1 


7 


' 
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1D2B 

23 

INX 

H 

(APRES*2 5) 

1 1 2C 

E5 

PUSH 

H 

;  MULTIPLY 

ALAST  BY 

MULTIPLIER  CONSTANT 

1  D2D 

3A3922 

LEA 

ALAST 

; LCAE  LAST  ANTENNA  VALUE 

1D30 

47 

MOV 

B,  A 

1D31 

3A3F22 

IDA 

CMULT 

1  £34 

4F 

MOV 

C,  A 

; LOAD  MULTIPLIER  CONSTANT 

1  D35 

CD701F 

CALL 

MULT8 

; ALAST  *  CMULT 

;  SUBTRACT 

APRES*25 

1  D38 

09 

£  AD 

B 

;  (ALAST*CMULT)  -APRES*25 

;  TEST  RESULT  OF  SUBTRACTION 

1  £39 

7C 

MOV 

A,  H 

1  D3A 

A7 

ANA 

A 

; SET  FLAGS 

1  £3B 

FA431B 

JM 

NCLOS 

; NOT  CLOSE 

;  THE  PREVIOUS  ANTENNA  READING  IS  CLOSE 

;  TO  THE  MAXIMUM  ANTENNA,  SET  THE 

;  PREVIOUS 

CLOSE  FLAG  (REGISTER  £) . 

1  £31 

16  FI 

M  VI 

D,  OFFH 

; SET  PREVIOUS  HIGH  FLAG 

1  £40 

C3451E 

JMP 

NCLOS+2 

;  THE  PREVIOUS  ANTENNA  READING  HAS  NOT 

;  CLOSE  TO 

THE  MAXIMUM  VALUE,  CLEAR 

;  THE  PREVIOUS  HIGH 

FLAG. 

1  D43 

1600 

NCLCS:  M  VI 

D,  00H 

; CLEAR  PREVIOUS  HIGH  FLAG 

1  £45 

El 

POP 

H 

;  RESTORE  -APRES*25  IN  HL 

;  MULTIPLY 

ANEXT  BY 

THE  MULTIPLIER  CONSTANT 

1D46 

3A3B22 

LDA 

ANEXT 

; LOAD  NEXT  ANTENNA  DATA 

1  £4  9 

47 

MOV 

B,  A 

1  £4  A 

3k 31 22 

IDA 

CMULT 

1  E4D 

4  F 

MOV 

C,  A 

;  LOAD  MULTIPLIER  CONSTANT 

1  D4E 

CE701F 

CALL 

MULT8 

; ALAST  *  CMULT 

;  SUETRACT 

APRES*25 

1  £5 1 

09 

DAD 

B 

; (ALAST*CMULT) -APRES*25 

;  TEST  RESULT  OF  SUBTRACTION 

1  £52 

7C 

MOV 

A,  H 

1  £53 

A7 

ANA 

A 

;  SET  FLAGS 

1  £5  4 

FA5C1B 

JM 

NCLS1 

; NOT  CLOSE 

;  THE  NEXT 

ANTENNA  IS  CLOSE  TO  THE 

;  MAXIMUM 

VALUE,  SET 

THE  NEXT 

;  BIGH  FLAG  (REGISTER  E) > 

1  £57 

1ELFF 

M  VI 

E,  OFFH 

; SET  HEXT  HIGH  FLAG 

1  £5  9 

C35E1B 

JMP 

NCLS1+2 

;  THE  NEXT  ANTENNA 

READING  WAS  NOT 

;  CLOSE  TO 

THE  MAXIMUM  VALUE,  CLEAR 

;  THE  NEXT 

HIGH  FLAG 

• 

1£5C 

1  E00 

NCLS1:  M VI 

E,  00H 

; CLEAR  NEXT  HIGH  FLAG 

;  READ  PREVIOUS  HIGH 

FLAG  ANE  COMPARE 

;  HITH  THE 

HEXT  HIGH 

FLAG 

1D5E 

Ik 

MOV 

A,  D 

; LOAD  FLAG 

1D5F 

BB 

CMP 

E 

; C  CM  PA  RE  LAST  AND  NEXT 

1  £6  0 

0600 

M  VI 

B,  00H 

;CLEAR  HALF-WAY  FLAG 

1  £62 

CA731E 

JZ 

ONANT 

jANTENNA  NUMBER  IS  CORRECT 

;  TRANSMITTER  IS  BETWEEN  ANTENNAS 

1  £65 

06  FF 

M  VI 

B,  OFFH 

; SET  HALF-WAY  FLAG 

1E67 

7B 

MOV 

A,  E 

u  t 

:7 

.■ 
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1  D68 

A7 

ANA 

A  ; SET  FLAGS 

1D69 

C2731E 

JNZ 

ONANT 

;  PREVIOUS 

ANTENNA  IS  CLOSE,  THERFORE 

;  DECREMENT 

THE  ANTENNA  NUMBER 

1  06C 

3A3C22 

LDA 

MAXNO 

1D6f 

3D 

DCR 

A 

1  D7  0 

323C22 

STA 

MAXNO  .'DECREMENT  ANTENNA  NUMBER 

;  TRANSMITTER  IS  CIOSEST  TO  THE  MAXIMUM 

;  ANTENNA, 

STORE  THE  ANTENNA  NUMEER 

1  D73 

3A3C22 

ONANT:  LDA 

MAXNC  ; LOAD  ANTENNA  NUMBER 

1  D76 

CD731F 

CALL 

HXDEC  ;CONVERT  TO  DECIMAL 

;  STORE  THE 

MS  CHARACTER 

1  D79 

4F 

MOV 

C,  A  ;  ST'O RE  IN  C 

1 17  A 

E6F0 

ANI 

OFOH  ; MASK  OFF  LOW  DIGIT 

1  D7C 

OF 

RRC 

1£7D 

OF 

RRC 

1£7E 

OF 

RRC 

1  D7 F 

OF 

RRC 

; ROTATE  INTO  LOW  NIEBLE 

1D80 

CD7C1F 

CALL 

CONAS  ; CONVERT  TO  ASCII 

1  £83 

32C821 

STA 

LCY5  ; STORE  MS  DIGIT 

;  STORE  THE 

LS  CHARACTER 

1  D  86 

79 

MOV 

A,  C  ; RELOAD  DIGIT 

1  £87 

E6  OF 

ANI 

OFH  ; MASK  OFF  MS  DIGIT 

1  £89 

CD7C1F 

CALL 

CCNAS  ; CONVERT  TO  ASCII 

1  E8C 

32C921 

STA 

LCY5+1  ; STORE  LS  DIGIT 

;  READ  THE 

HALF  WAY  FLAG 

1  DSF 

78 

MOV 

A,  B 

1  £9  0 

A7 

ANA 

A  ; R E AD  HALF-WAY  FLAG 

1D91 

CA9C1D 

JZ 

NOHF  ; NOT  HALF-WAY 

;  THE  TRANSMITTER  IS  HALF  KAY  EETWEEN 

;  ANTENNAS, 

STORE  A  FIVE  FOR  THE  DECIMAL 

;  PART  OF  THE  ANTENNA  NUMBER 

1  £94 

3E35 

M  VI 

A,  '5* 

1  £9  6 

32CA21 

STA 

LCY5+2  ; STORE  A  FIVE 

1D99 

C3A11D 

JMP 

LDED 

;  THE  TRANSMITTER  IS  NOT  EETWEEN  ANTENNAS, 

;  STORE  A  ZERO  AS  THE  DECIMAL  PART 

;  OF  THE  ANTENNA  NUMBER 

1£9C 

3E30 

NOHF :  M  VI 

A,  1  O' 

1E9E 

32CA21 

STA 

LCY5+2  ; STORE  A  ZERO 

1  £  A  1 

D 1 

IDED:  POP 

D 

1DA2 

Cl 

POP 

B 

1  EA3 

El 

POP 

H 

1  EA4 

C9 

RET 

• 

; SUBROUTINE 

TO  CALC.  DIST.  EETWEEN  2  TRANS. 

;  POINT  DE 

AT  ONE  SET  OF  DATA 

;  POINT  BC 

AT  THE  OTHER  SET  OF  DATA 

;  ANSWER  IS 

RETURNED  IN  REG  A 

1  £A5 

E5 

DIST:  PUSH 

H 

;  PACK  THE 

NUMBER  POINTED  TO  BY  BC 

;  INTO  ONE 

BYTE 

1  EA6 

60 

MOV 

H,  B 

1EA7 

69 

MOV 

L,  C  ; MOVE  BC  TO  HL 

’ 

'  • 
r- 
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1 1 A8 

CD031E 

CALL 

PACK  ; CEE ATE  A  DIGIT 

• 

• 

STOLE  THE 

X  LOCATION 

1  CAB 

324022 

STA 

AX  ; STOBE  X  LOCATION 

• 

• 

PACK  THE 

Y  LOCATION 

1  DAE 

CD031E 

CALL 

PACK 

1  DB  1 

324122 

STA 

AY  ;  STORE  Y  LOCATION 

• 

t 

PACK  THE 

NUMBER  POINTED  TO  BY  DE 

• 

9 

INTO  ONE 

BYTE 

1  DB4 

62 

MOV 

H  ,  D 

1  DE5 

6B 

MOV 

L,  E  ; MOVE  DE  TO  HL 

1  EE6 

CD031E 

CALL 

PACK  ; CBE AT E  DIGIT 

• 

• 

STOBE  THE 

X  LOCATION 

1  DE9 

324222 

STA 

BX  ; STORE  X  LOCATION 

• 

9 

PACK  THE 

Y  LOCATION 

1  DEC 

CD031E 

CALL 

PACK 

1  DBF 

324322 

STA 

BY  ; STORE  Y  LOCATION 

• 

t 

CALCULATE 

X  AND  Y  DIMENSIONS 

• 

9 

AX  AND  AY 

CONTAIN  THE  COORDINATES 

• 

9 

FOB  ONE  TEA NSMITTEB 

• 

9 

BX  AND  BY 

CONTAIN  THE  COORDINATES 

• 

9 

FOB  THE  OTHEE  TRANSMITTED 

1  DC2 

3A4022 

LDA 

AX 

1  DCS 

214222 

LXI 

H,  BX 

1  DC  8 

96 

SUB 

M  ; A  X-BX 

1  DC  9 

F2D31D 

JP 

DIST1 

1  DCC 

3 A  4222 

LDA 

EX 

1  DCF 

214022 

LXI 

H,  AX 

1  DD2 

96 

SUB 

M  ; BX- AX 

• 

9 

BEG  A  HAS 

THE  X  DIMENSION 

1  DD3 

324022 

DIST1:  STA 

AX  ; STORE  THE  X  DIMENSION 

• 

9 

AX  CONTAINS  THE  X  DIMENSION 

1  DD6 

3A4122 

LDA 

AY 

1  DD  9 

214322 

LXI 

H,  BY 

1  DDC 

96 

SUB 

M  ; A Y-BY 

1  DDD 

F2E71D 

JP 

DIST2 

1  DEO 

3A4322 

LDA 

BY 

1  DE3 

214122 

LXI 

H,  AY 

1  DE6 

96 

SUB 

M  ;  B Y- AY 

• 

9 

REG  A  HAS 

THE  Y  DIMENSION 

• 

t 

SQUARE  THE  Y  DIMENSION 

1DE7 

47 

DIST2 :  MOV 

B  f  A 

1  DE8 

4F 

MOV 

C,  A 

IDE  9 

CD701F 

CALL 

MULT8  .'SQUARE  Y  DIMENSION 

1  DEC 

50 

MOV 

D  t  B 

1  DED 

59 

MOV 

E,  C  ; MOVE  TO  DE  REGISTER 

• 

9 

DE  CONTAINS  THE  Y  DIMENSION  SQUABED 

• 

9 

SQUARE  TBE  X  DIMENSION 

IDEE 

3A4022 

LDA 

AX 

1  DPI 

47 

MOV 

B  f  A 

1  DF2 

4F 

MOV 

C,  A 

1DF3 

CD701F 

CALL 

MULT8  ; SQUARE  THE  Y  DIMENSION 

1  DF6 

60 

MOV 

H  ,  B 

1DF7 

69 

MOV 

L,  C  ;  MOVE  TO  HL  REGISTER 

;  HL  CONTAINS  THE  X  DIMENSION  SQUARED 


< 
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1DF8 

19 

DAD 

D 

;  HL+DE 

HI  NOW  CONTAINS  (2X) **2  +  ( 2 X) **2 

1  DF9 

54 

MOV 

D,  H 

1  CFA 

5D 

MOV 

E,  L 

;  MOVE  TO  THE  DE  REGISTER 

;  DE  CONTAINS  THE  SUM  OF  THE  SQUARES 

1  EFB 

CD251E 

CALL 

SQRT 

NOW  DIVIDE  BY  TWO 

TO  GET  THE  ANSWER 

1  DFE 

37 

STC 

IDEE 

3F 

CMC 

; CLEAR  CARRY 

1  E00 

IF 

EAR 

; DIVIDE  EY  2 

1  EO  1 

El 

POP 

H 

1  EO  2 

C9 

RET 

SUBROUTINE 

TO  PACK  3 

DIGITS  INTO  ONE  BYTE 

HL  POINTS  TO  THE  START  OF  THE  DATA  TABLE 

ANSWER  IS  RETURNED 

IN  REGISTER  A 

ANSWER  IS  TWO  TIMES  THE  NUMBER 

I.E.  IF 

HL  POINTS 

AT  THE  CHARACTERS 

1,  3  AND 

5,  THE  ANSWER  WILL  EE  27 

1103 

C5 

PACK:  FUSH 

B 

1  E04 

7E 

MOV 

A,  M 

; LOAD  MS  DIGIT 

1  E05 

CD791F 

CALL 

CONHX 

; CON VE RT  TO  DECIMAL 

1  E08 

17 

RAL 

1  E09 

17 

RAL 

1  EO  A 

17 

RAL 

1  EOB 

17 

RAL 

; ROT ATE  INTO  MS  NIEBLE 

1  EOC 

47 

MOV 

B,  A 

; STORE  IN  REGISTER  B 

;  CONVERT 

LS  DIGIT  TO  DECIMAL 

1  EOD 

23 

INX 

H 

1  EOE 

7E 

MOV 

A,  M 

; LOAD  LS  DIGIT 

1  EOF 

CD791F 

CALL 

CONHX 

.-CONVERT  TO  DECIMAL 

1  E 1 2 

BO 

ORA 

B 

;  ADD  MS  NIEBLE 

1  El  3 

CD76  IF 

CALL 

DECHX 

;CON VERT  TO  HEX 

A  CONTAINS  THE  INTEGER  PART  OF 

THE  NUMBER 

1  E 1 6 

17 

RAL 

; M  ULTI PLY  EY  2 

A  CONTAINS  2  TIMES 

THE  INTEGER 

;  PART  OF 

THE  NUMBER 

1  E 1 7 

47 

MOV 

B,  A 

; STORE  IN  REG  E 

1  El  8 

23 

INX 

H 

; POINT  AT  FRACTIONAL  PART 

1  E 1 9 

7  E 

MOV 

A  r  M 

; LOAD  DIGIT 

1  E 1 A 

FE30 

CPI 

'O' 

1  E1C 

78 

MOV 

A  t  E 

; RESTORE  A  REGISTER 

1  E 1  D 

CA211E 

JZ 

PACK  1 

1 

THERE  IS 

A  FRACTIONAL  PART 

1  E20 

3C 

INR 

A 

; ADD  1  IF  FRACTION 

1E21 

23 

PACK  1 ;  I NX 

H 

1E22 

23 

INX 

H 

1  E23 

Cl 

POP 

B 

1  E24 

C9 

RET 

SUBROUTINE  TO  CALCULATE  SQUARE  ROOTS 
NUMBER  IS  ENTERED  IN  THE  DE  REGISTER 
MAXIMUM  VALUE  IS  3F00H 


-  /f  % 
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RESULT  IS  RETURNED  IN  THE  A  REGISTER 
THE  SQUARE  ROOT  IS  CALCULATED  BY 
SUCCESSIVE  APPROXIMATIONS. 

THE  ROUTINE  KILL  KEEP  TRYING  NUMBERS 


• 

f 

UNTIL  THE 

NEAREST 

INTEGER  IS  FOUND. 

1E25 

E5 

SQRT:  PUSH 

H 

1  E26 

C5 

PUSH 

B 

1 E27 

267F 

M  VI 

H,  7FH 

; LOAD  MAX  VALUE 

1E29 

2E00 

M  VI 

L,  00H 

; LO AD  MIN  VALUE 

1  I2E 

F5 

SQR  1 :  PUSH 

PSW 

1  E2C 

7C 

MOV 

A,  H 

; LC AD  MAX  VALUE 

1E2D 

95 

SUB 

L 

;  SUBTRACT  MIN  VALU 

• 

t 

IF  H-L  LEQ  1  EXIT 

FRCM  ROUTINE 

1  E2E 

CA5A1E 

JZ 

EXSQ 

1E31 

FE01 

CPI 

1 

1E33 

CA5A1E 

JZ 

EXSQ 

1  E36 

33 

I  NX 

SP 

1  E37 

33 

I  NX 

SP 

• 

t 

LOAD  A  KITH  (H-L)/2  +  L 

1  E38 

IF 

RAR 

; DIVIDE  BY  2 

1  E39 

85 

ADD 

L 

;  ADD  MIN  VALUE 

1  E3  A 

47 

MOV 

B,  A 

1  E3B 

4F 

MOV 

C,  A 

; LOA D  BC  REGISTER 

1  E3C 

CD701F 

CALL 

MULT8 

; SQU ARE  THE  NUMBER 

• 

• 

BC  NOW  CONTAINS  A 

SQUARED 

1E3F 

F5 

PUSH 

PSH 

1  E40 

E5 

PUSH 

H 

• 

9 

NEGATE  BC 

AND  MOVE 

TO  HL 

1  E41 

79 

MOV 

A  ,C 

1  E42 

2F 

CMA 

1E43 

6F 

MOV 

L,  A 

1  E44 

78 

MGV 

A ,  B 

1  E45 

2F 

CMA 

1  E46 

67 

MOV 

H,  A 

1E47 

23 

INX 

H 

; NEGATE  BC  AND  MOV 

• 

9 

NUMBER  - 

(GUESS)  **2 

1  E48 

19 

DAD 

D 

; DE-BC 

1  E49 

7C 

MOV 

A,  H 

1  E4A 

A7 

ANA 

A 

;  SET  FLAGS 

1  L4B 

FA541E 

JM 

MINUS 

;  BODE 

• 

9 

GUESS  IS 

TOO  LARGE 

,  LOAD 

• 

9 

A  NEK  MINIMUM  VALUE 

1  E4E 

El 

POP 

H 

1  E4E 

FI 

POP 

PSW 

1E50 

6F 

MOV 

L  t  A 

;LOAD  NEW  MIN  VALU 

1E51 

C32B1E 

JMP 

SQR1 

• 

9 

GUESS  IS 

TOO  SMALL 

,  LOAD 

• 

9 

A  NEK  MAXIMUM  VALUE 

1E54 

El 

MINUS:  POP 

H 

1E55 

FI 

POP 

PSW 

1E56 

67 

MOV 

H ,  A 

;LOAD  NEW  MAX  VALU 

IE  57 

C32B1E 

JMP 

SQR1 

1  E5A 

FI 

EXSQ:  POP 

PSW 

;LOAD  ANSWER 

1E5B 

Cl 

POP 

B 

TO  HL 


' 


\ 
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1  ESC 

El 

PCP 

H 

1E5D 

C9 

RET 

• 

; S  UBRQUTINE 

TO  LOAD 

THE  TEMFORAEY  PRINT 

;  EUEEER  INTO  THE  PRINT  EUFFER. 

1  E5E 

C5 

LDPRT:  PUSH 

B 

1E5F 

D5 

PUSH 

D 

1  E60 

E5 

PUSH 

H 

1E61 

F5 

PUSH 

PSW 

1E62 

2605 

W  VI 

Hr  5 

; LOA  D  COUNTER 

1 E64 

016221 

LXI 

B ,  TK1 

; LOAD  SOURCE  ADDRESS 

1  E67 

1 1D021 

LXI 

D,  PRBF 

;LOAD  DESTINATION  ADDRESS 

;  DECIDE  WHETHER  TO 

PRINT  THE  POSITIONS 

;  OR  THE  FLAGS 

1 E  6  A 

3A1A21 

LDA 

ACLOC 

1  E6D 

A7 

ANA 

A 

;  SET  FLAGS 

1  E6E 

C28C1E 

JNZ 

LDFT6 

; PRI NT  FLAGS 

;  PRINT  THE 

LOCATIONS 

1E7  1 

2E11 

LDPT1:  M VI 

L,  17 

; LOAD  BYTE  COUNT 

1  E73 

0A 

IDPT2:  LDAX 

B 

1E7  4 

12 

STAX 

D 

; STORE  DATA 

1E75 

03 

INX 

B 

1E76 

13 

I  NX 

D 

1  E77 

2D 

DCR 

L 

1 E78 

C2731E 

JNZ 

LDPT2 

;LINE  NOT  DONE 

;  POSITIONS 

HAVE  BEEN  LOADED,  LOAD 

;  THE  CARRIAGE  CONTROL  CHARACTER 

1  E7  E 

03 

INX 

B 

1E7C 

03 

INX 

B 

1  E7D 

03 

INX 

B 

1E7E 

03 

INX 

B 

1E7E 

OA 

LDAX 

B 

1E80 

12 

STAX 

D 

; LO AD  CARRIAGE  CONTROL 

1E81 

03 

INX 

B 

1E82 

13 

INX 

D 

1E83 

25 

DCR 

H 

1 E84 

C2711E 

JNZ 

LDPT1 

;  NOT  DONE  YET 

;  ALL  FIVE 

LINES  HAVE  BEEN  DONE 

1  E87 

FI 

POP 

PSW 

1  E88 

El 

POP 

H 

1  E89 

D  1 

POP 

D 

1  E8A 

Cl 

POP 

B 

1E8B 

C9 

RET 

1  E8C 

2E0A 

LDPT6:  M VI 

L,  10 

; LOAD  BYTE  COUNT 

;  PRINT  THE  FLAGS 

1  E8E 

OA 

LDPT7:  LDAX 

B 

1E8E 

12 

STAX 

D 

; STORE  DATA 

1  E90 

03 

INX 

B 

1E91 

13 

INX 

D 

1  E92 

2D 

DCR 

L 

1 E9  3 

C28E1E 

JNZ 

LDPT7 

; LI NE  NOT  DONE 

;  TIME  AND 

CHANNEL 

HAVE  BEEN  LOADED, 

;  LOAD  THE 

FLAGS 

1  E96 

03 

INX 

B 

•% 


, 
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1E97 

03 

I  NX 

B 

1  E98 

03 

INX 

B 

1 E99 

03 

I  NX 

B 

1E9A 

03 

INX 

B 

1E9E 

03 

INX 

B 

1E9C 

03 

INX 

B 

1E9D 

03 

INX 

B 

1E9E 

2E04 

AVI 

L, 

4 

;  LOAD  THE 

FLAGS  AND  CARRIAGE  CONTROL 

IE  AO 

OA 

LDPT8 :  LDAX 

B 

1  EA  1 

12 

STAX 

D 

; STORE  FLAG 

1  EA2 

03 

INX 

B 

1  E  A3 

13 

INX 

D 

1  EA4 

2D 

DCR 

L 

1EA5 

C2A01E 

JNZ 

LDPT8  ; LI NE  NOT  DONE 

1  EA8 

25 

DCR 

H 

1  EA9 

C28C1E 

JNZ 

LDPT6  ; NEXT  LINE 

;  AIL  FIVE 

LINES  HAVE  BEEN  LOADED 

1  EAC 

FI 

PCP 

PSW 

1  EAD 

El 

POP 

H 

1  EAE 

D 1 

POP 

D 

1  EAF 

Cl 

POP 

B 

1  EBO 

C9 

RET 

• 

; S  UEROUTINE 

TO 

LOAD  A  LINE  FROM  THE  PRINT  BUFF 

;  INTO  THE 

CASSETTE  BUFFER. 

;  LINE  NUMBER 

IS  ENTERED  IN  REGISTER  A 

1  EB  1 

C5 

LDCAS:  PUSH 

B 

1  EB2 

D5 

PUSH 

D 

1  EB3 

E5 

PUSH 

H 

1  EB4 

F5 

PUSH 

PSW 

1EE5 

116221 

LXI 

D, 

TM1 

1  EB8 

3D 

LDCS1:  DCR 

A 

; DECREME  NT  COUNTER 

1  EB9 

CAC31E 

JZ 

LDCS2  ; DONE 

1  EBC 

CD671F 

CALL 

INDE  .‘INCREMENT  DE  21  TIMES 

1  EEF 

13 

INX 

D 

; 2 2  TIMES 

1  ECO 

C3B81E 

JMP 

LDCS1 

;  DE  REGISTER 

NOW  POINTS  AT  LINE  TO  BE  OUTPUT 

1  EC3 

2A2520 

LDCS2:  LHLD 

BUFER  ; LOAD  POINTER 

;  LOAD  GROUP  SEPARATORS 

1  EC  6 

CD6D1F 

CALL 

NLINE 

1  EC  9 

0615 

M  VI 

B, 

21  ; LOAD  COUNTER 

;  LOAD  DATA 

1  ECE 

1  A 

LDCS3:  LDAX 

D 

; L C A D  DATA 

1  ECC 

77 

MOV 

M, 

A  ; STORE  DATA 

1  ECD 

23 

INX 

H 

1  ECE 

13 

INX 

D 

1  ECF 

05 

DCR 

B 

; DECREMENT  COUNTER 

1  EDO 

C2CB1E 

JNZ 

IDCS3  ; NOT  DONE  YET 

;  LOAD  CARRIAGE  RETURN 

1  ED3 

CD6A1F 

CALL 

CRLF  ; ENTER  CARE.  RETURN 

1ED6 

222520 

SHLD 

EUFER  ; RESET  BUFFER  POINTER 

1  ED  9 

FI 

POP 

PSW 

1ED-A 

El 

POP 

H 

:•  , 

:r 
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1  EBB 

D1 

POP 

D 

1  EDC 

Cl 

POP 

B 

1  EDD 

C9 

RET 

SUBROUTINE 

TO 

INC.  A  SET  OF  POINTERS 

BY  THE 

VALUE  IN 

REGISTER  A,. 

REGISTERS  TO 

BE  INCREMENTED  1  TIME 

ARE 

1 1 1 1 ,  11 12, 

I1T3,  I1T4,  I 115 

REGISTERS  TO 

BE  INCREMENTED  22  TIMES  ARE 

I22T1,  I22T2 

,  I22T3 

1  EDE 

E5  INPNT :  PUSH 

H 

1  EDF 

D5 

PUSH 

D 

1  EEO 

C5 

PUSH 

B 

1  EE  1 

F5 

POSH 

PSW 

1  EE2 

3D  INPT:  DCS 

A 

1  EE3 

CAIO  IE 

JZ 

INP5  ; DONE 

;  HOT  DONE 

,  INCREMENT  THE  POINTERS 

1  EE6 

212E21 

LXI 

Hf 

I  IT  1 

1  EE  9 

0605 

M  VI 

B, 

5  ; LOAD  COUNTER 

;  LOAD  DE 

KITH 

DATA 

1  EEB 

5E  INPT1:  MOV 

E, 

M 

1  EEC 

23 

I  NX 

H 

1  EED 

56 

MOV 

Df 

M  ; LOAD  DE  WITH  DATA 

1  EEE 

13 

INX 

D 

;INCREMENT 

IEEE 

72 

MOV 

Mr 

D 

1  EEO 

2B 

DCX 

H 

1  EE  1 

73 

MOV 

Mr 

E  ; RESTORE  DATA 

POINTER 

HAS 

BEEN  INCREMENTED  BY  1 

1  EF2 

23 

INX 

H 

1  EE  3 

23 

INX 

H 

1  EE4 

05 

DCR 

B 

; DECREMENT  COUNTER 

1  EE5 

C2EE1E 

JNZ 

INPT1 

ALL  REGISTERS  TO  BE  INCREMENTED 

BY  ONE  ARE  DONE. 

POINT  AT 

REGISTERS  TO  BE 

INCREMENTED 

BY  22. 

1EE8 

213921 

LXI 

H, 

I22T1 

1  EEB 

0603 

M  VI 

B, 

3  ; LCAD  COUNTER 

;  LOAD  DS 

WITH 

DATA 

1  EED 

5E  INPT2:  MOV 

E, 

M 

1  EEE 

23 

JNX 

H 

IEEE 

56 

MOV 

Dr 

S 

1  EOO 

CD671E 

CALL 

INDE  INCREMENT  21  TIMES 

1E03 

13 

INX 

D 

;22  TIMES 

1E04 

72 

MOV 

Mr 

D 

1 E05 

2B 

DCX 

H 

1EC6 

73 

MOV 

M, 

E  JRELCAD  COUNTER 

;  POINTER 

HAS 

BEEN  INCREMENTED  BY  22 

1E07 

23 

INX 

H 

1E08 

23 

INX 

H 

1E09 

05 

DCR 

B 

; DECREMENT  COUNTER 

1EOA 

C2ED1E 

JNZ 

INPT2 

;  ALL  PONTERS 

HAVE  BEEN  SERVICED 

If  OE 

C3E21E 

JMP 

INPT 

- 
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1110 

FI  INP5: 

POP 

PSW 

If  11 

Cl 

POP 

B 

1  f  12 

D 1 

POP 

D 

If  13 

El 

POP 

H 

If  14 

C9 

RET 

SUBROUTINE 

TO  SET  THE  TEST  ANTENNA  ERROR  FLAGS 

THE 

SIGNAL  FROM  THE  TEST  ANTENNA  IS 

COMPARED 

WITH  THE  COMPARATOR  VALUE. 

If 

THE  SIGNAL  IS  TOO  HIGH,  THE  FLAG 

IS 

SET  TC 

A  ONE.  OTHERWISE  IT  IS  SET 

TO 

A  ZERO 

I. 

TANCP  CONTAINS  THE  COMPARATOR  VALUE 

1115 

f 5  STT AN : 

PUSH 

PSW 

If  16 

E5 

PUSH 

H 

If  17 

C5 

PUSH 

B 

If  18 

D5 

PUSH 

D 

1  F  1  S 

210D21 

LXI 

H,  TSTAN  ; POINT  AT  ANTENNA  VALUES 

If  1C 

117621 

LXI 

D,  FLG1+2  ; EOINT  AT  FIRST  FLAG 

1  F  IF 

3A1221 

LDA 

TANCP 

1  f  22 

47 

MOV 

B,  A  ; P UT  COMPARATOR  VALUE  IN  B 

1  F23 

0E05 

M  VI 

C,  5  ; LOAD  COUNTER 

;  REGISTER 

B  CONTAINS  THE  COMPARATOR  VALUE 

1  f  25 

7E  SIT  1 : 

MOV 

A,  M  ; LOAD  ANTENNA  VALUE 

1  F26 

B8 

CMP 

B  ; CCMPA RE  WITH  SETPOINT 

1  F27 

f 2301F 

JP 

STEFL 

;  CLEAR  FLAG 

1  f  2  A 

3E30 

M  VI 

A,  30H 

If  2C 

12 

STAX 

D  ; STORE  A  ZERO 

1 F2E 

C3331F 

JMP 

STT2 

;  SET 

FLAG 

1F30 

3E31  STEfL: 

M  VI 

A,  3  1 H 

1  F32 

12 

STAX 

D  ;  STORE  A  ONE 

1  f  33 

CD 6 7 1 F  STT2: 

CALL 

INDE  ;I NCREMENT  DE  21  TIMES 

1  F36 

13 

INX 

D  ;  2 2  TIMES 

If  37 

23 

I  NX 

H  ; POINT  A  NEXT  CHANNEL 

If  38 

0D 

DCR 

C  ; DECRE MENT  COUNTER 

If  39 

C225 1  f 

JNZ 

STT1  ; NOT  DONE  YET 

' 

ALL 

FIVE 

FLAGS  HAVE  BEEN  SERVICED 

1F3C 

D  1 

POP 

0 

1F3D 

Cl 

POP 

B 

1  F3E 

El 

POP 

H 

1F3f 

FI 

POP 

PSW 

If  40 

CS 

RET 

SUBROUTINE 

TO  SET  THE  ABOVE/EEIOW  FLAG 

NOT 

IMPLEMENTED  YET  ,  THEREFORE  STORE  A  ZERO 

If  41 

F5  STABL: 

PUSH 

PSW 

If  42 

E5 

PUSH 

H 

1  F43 

217521 

LXI 

H,  FLG1+1 

1  f  46 

3E05 

M  VI 

A,  5 

If  48 

3630  STAB  1 : 

M  VI 

M,  30H  ; STORE  A  ZERO 

1  F4  A 

CD5C1F 

CALL 

IHL20  ;INCREMENT  HL  20  TIMES 

If  4D 

23 

INX 

H 

' 
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1F4E  23 
1F4F  3D 
1F50  C2481F 
1F53  El 
1  F  54  FI 
1F55  C9 


I  NX  H  ; 2  2  TIMES 

DCS  A  ; DECREMENT  COUNTER 

JNZ  STAB  1  ; N OT  DONE  YET 

PGP  H 

POP  PSW 

RET 


;  SUBROUTINE 


1F56 

13 

INCD5:  I NX 

1 F57 

13 

INX 

1F58 

13 

I  NX 

1  F59 

13 

INX 

1 F5  A 

13 

INX 

1  F5B 

C9 

SET 

TO  INCREMENT  DE  FIVE  TIMES 

D 

D 

D 

D 

D 


; SUBROUTINE  TO  INCREMENT  HL  20 


1F5C 

1F5F 

1  F60 

CD611F 

2B 

C9 

IHL20:  CALL 

DCX  H 
SET 

;  FORWARDING 

AD21 

ADDRESSES 

1F61 

C30300 

AD2  1 : 

JMP 

3 

1  F64 

C30600 

PTINT: 

JMP 

6 

1F67 

C30900 

INDE: 

JMP 

9 

1F6  A 

C30C00 

CRLF: 

JMP 

12 

1  F6D 

C30FQ0 

NLINE: 

JMP 

15 

1F70 

C31200 

MULT8: 

JMP 

18 

1F73 

C31500 

HXDEC: 

JMP 

21 

1  F76 

C31800 

DECHX: 

JMP 

24 

1F79 

C31B00 

CON  HX : 

JMP 

27 

1F7C 

C31E00 

CONAS: 

JMP 

30 

1F7F 

C32100 

LEOF: 

JMP 

33 

If  8  2 

C32400 

AD882: 

JMP 

END 

36 

TIMES 


. 
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